黑道明

你既附件檔, 會唔會係由之前excel gen既report file? 如果唔係, d附件檔, 本身有冇咩attribute, 例如prefix ...
myricky 發表於 2018-10-16 17:41

聽日返屋企再cap圖講解

黑道明

你既附件檔, 會唔會係由之前excel gen既report file? 如果唔係, d附件檔, 本身有冇咩attribute, 例如prefix ...
myricky 發表於 2018-10-16 17:41

    老細話呢個寄出動作應該只係做一次~
為安全起見.....都係一封封寄算~~

唔該C兄~~

黑道明

你既附件檔, 會唔會係由之前excel gen既report file? 如果唔係, d附件檔, 本身有冇咩attribute, 例如prefix ...
myricky 發表於 2018-10-16 17:41

    C兄~
有個問題想問~~

20000隻的MASTER 行完個VBA , 之後所生成既FILE~

入面實際有 2000行資料 SIZE 2171KB
打開張EXCEL , 2002行下有4000-6000行空白
DEL左之後 SAVE , 就變左做1102KB =.=

入面實際有 71行資料 SIZE 1673KB
打開張EXCEL , 72行下有6000-8000行空白
DEL左之後 SAVE , 就變左做56KB =.=

想問係唔係同 一開始個DIM (10000,10) 有關?
定係其他事項相關?

黑道明

回覆  黑道明

                                                                                      ...
myricky 發表於 2018-10-23 16:44

    原來係咁~~
聽日試下先~~

唔該C兄~~

黑道明

回覆  黑道明

                                                                                      ...
myricky 發表於 2018-10-23 16:44

自己係上面加左呢句 去代替 "job"
sheettocopy = Cells(8, "b")

Workbooks(datawb).Activate
Sheets(Array(datasheet, sheettocopy)).Select
Sheets(Array(datasheet, sheettocopy)).Copy
同你講既一樣，因為用左Array一次過COPY兩張Sheet，令到active sheet變成"job"

Worksheets(datasheet).Activate
Rows(strow & ":" & totalrow).Delete
之後用呢個就可以順利運行，所有File先10mb

Worksheets(datasheet).activate
Range(Cells(strow, "a"), Cells(totalrow, lastcol)).ClearContents
呢個都運行到，只不過仲係所有File 90mb~~

C兄一句 VBA 減左9成 SIZE

黑道明

D.7z (32.02 KB)

下載次數: 126

2021-4-20 22:28

TO eoe~
試下~~
COPY sheet 既code 比我DEL左~
無視果欄

其他你試下~

eoe

TO eoe~
試下~~
COPY sheet 既code 比我DEL左~
無視果欄

其他你試下~
黑道明 發表於 2021-4-20 22:30

唔該師兄 我試試 thank!!