[問題] 將不同檔案的儲存格用VBA抓出來
軟體:excel
版本:2010
大家好，小弟在網路上找到相關範本
做了一下修改，就是要將不同檔案的
儲存格彙整我要的資料(每個檔案有10幾筆要的)
想請教為什麼抓出來之後格子會跑掉
沒有按照檔的順序編排....
還有出現空格的情形..
Sub test()
Dim mypath As String, myfile As String
Dim mybook As Workbook, wb As Workbook
Dim mysh As Worksheet
Application.ScreenUpdating = False
Set mybook = ThisWorkbook
Set mysh = mybook.ActiveSheet
mypath = ThisWorkbook.Path & "\"
myfile = Dir(mypath & "*.xls")
Do Until myfile = ""
If myfile <> mybook.Name Then
Set wb = Workbooks.Open(mypath + myfile)
wb.Sheets(1).Range("B2").Copy
If mysh.[A3].Value = "" Then r = 3 Else r =
mysh.[A65536].End(3).Row + 1
mysh.Cells(r, 1).PasteSpecial Paste:=xlPasteValues
wb.Sheets(1).Range("B3").Copy
If mysh.[B3].Value = "" Then r = 3
mysh.Cells(r, 2).PasteSpecial Paste:=xlPasteValues
wb.Sheets(1).Range("B8").Copy
If mysh.[C3].Value = "" Then r = 3
mysh.Cells(r, 3).PasteSpecial Paste:=xlPasteValues
wb.Close savechanges:=False
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.231.169.173
→
02/10 20:33, , 1F
02/10 20:33, 1F
→
02/10 20:36, , 2F
02/10 20:36, 2F
→
02/10 20:40, , 3F
02/10 20:40, 3F
推
02/10 20:41, , 4F
02/10 20:41, 4F
→
02/10 20:42, , 5F
02/10 20:42, 5F
→
02/10 20:45, , 6F
02/10 20:45, 6F
→
02/10 20:48, , 7F
02/10 20:48, 7F
→
02/10 21:06, , 8F
02/10 21:06, 8F
※ 編輯: garacias 來自: 125.231.169.173 (02/10 21:10)
推
02/10 21:10, , 9F
02/10 21:10, 9F
→
02/10 21:13, , 10F
02/10 21:13, 10F
→
02/10 21:13, , 11F
02/10 21:13, 11F
※ 編輯: garacias 來自: 125.231.169.173 (02/10 22:19)
※ 編輯: garacias 來自: 125.231.169.173 (02/10 23:06)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
