入黎免費幫你砌excel表 / 教你formula (4)

伊原摩耶花

999 回覆
47 Like 6 Dislike
CMOSsensor 2020-10-30 20:39:03
粗粗地用住先

1. 先開一個新xlsm file
2. 將所有filename (包括.xlsx) 放在 Column A
3. copy 以下sub 去VBA 及run
4. 會自動copy 去Column B ( 每個file 的Cell F3)

注意:
1. 記得所有file 在同一folder, 並將個full path 改返去 wb_path
2. 記得改返for loop 個counter, 比如你有100 個file 就 For i = 1 To 100
3. 假設copy每個excel file 的第一個worksheet


Code 如下:

Sub copyallfromfiles()

   Dim wb_cur As String
   Dim wb_open As String
   Dim wb_path As String
   

   wb_path = "C:\aaaa\"
   wb_cur = ActiveWorkbook.Name
   
   Dim i As Integer
   
   For i = 1 To 3
         wb_open = Workbooks(wb_cur).Worksheets(1).Range("A1").Offset(i - 1, 0)

         Workbooks.Open wb_path & wb_open
        
         'MsgBox wb_open
         
         Workbooks(wb_cur).Worksheets(1).Range("B1").Offset(i - 1, 0) = Workbooks(wb_open).Worksheets(1).Range("F3")

         Workbooks(wb_open).Close
   Next i
   
End Sub
溢穴精華 2020-10-30 20:43:22
thanks
訓啦卡比獸 2020-10-30 20:49:13
如果excel 1 係員工一個月既更表

點樣可以將excel 1既更表自動分割落4個空既excel表變成 第一、二、三、四星期既更表
販兵兵 2020-10-30 20:54:27
Ching覺得excel好用d定Google sheet好用d?
CMOSsensor 2020-10-30 21:40:07
Excel
可以只在local
CMOSsensor 2020-10-30 21:43:22
幫樓主問: 比d 例子出黎先講到
訓啦卡比獸 2020-10-30 23:12:35

大概係咁 將一個excel大表格既內容 分割去幾個新ecxel既細表格度
__name__ 2020-10-31 14:18:42
我支持Google sheet
因為可以寫Javascript, 而唔係VBA
傅家俊 2020-10-31 20:57:36
最大問題係甚少公司會用Google Sheet
罷搭9鐵 2020-10-31 21:36:51
求vba code
我想用excel將window資料夾內嘅file包括word,excel,ppt按名稱分類歸納入新嘅資料夾

例如資料夾裡面有
11111.doc
11111.xml
11111.ppt
22222.doc
22222.xml
22222.ppt
33333.doc
33333.xml
33333.ppt
然後分類入invoice11111,invoice22222,invoice33333呢3個資料夾裡面

唔該師兄
CMOSsensor 2020-10-31 22:15:38
除非唔機密先會用Google sheet做協作。
不過大部份公司都會唔比用
CMOSsensor 2020-10-31 22:29:38
用command prompt 打
Mv 11111.* .\invoice11111
就會將所有11111的file move 左去 個dir 到

你用vba 都係call 以上呢句
罷搭9鐵 2020-11-01 09:14:59
但個file有400個唔同no.啲file咁點
e.g. 183663919
174794974
wuiejdvkako
184774945
因為我係database gen啲file出黎
CMOSsensor 2020-11-01 12:10:31
整個batch file 一次過
望月忘人 2020-11-01 12:12:03
lm
你今日笑左未 2020-11-01 16:33:47


無知一問,呢個點set
你今日笑左未 2020-11-01 17:13:51
萬分感謝
當你有十萬個column果時,縮埋啲唔常用既真係好方便
你今日笑左未 2020-11-01 17:18:52
如果你係我老細就好咁我就搞少好多data
rubymonday 2020-11-02 00:51:50
如果想由呢個網 extract data 可以點做,唔需要即時更新,copy 一次就可以
http://www.hko.gov.hk/en/cis/dailyExtract.htm?y=2019&m=1
入邊每個月份有一條 link,total 要廿年
試過 get external data from web,read 唔到 table
試過 vba,去到 show message box 卡住咗,唔識將 web 入邊每一格黐返落 excel 每一格道
rubymonday 2020-11-02 00:55:57
重覆嗰個部份我估我 handle 到嘅,最主要係連第一個月都黐唔到上去
吹水台自選台熱 門最 新手機台時事台政事台World體育台娛樂台動漫台Apps台遊戲台影視台講故台健康台感情台家庭台潮流台美容台上班台財經台房屋台飲食台旅遊台學術台校園台汽車台音樂台創意台硬件台電器台攝影台玩具台寵物台軟件台活動台電訊台直播台站務台黑 洞