各位大神：
我想把一個有多個worksheets的excel檔案1的資料賦值到另一個excel檔案2的worksheets（1）中，但是總是報錯，找不到原因。
請大神幫我看看。
Dim k As Integer
Dim m As Integer
Dim n As Integer
Dim w As Integer
12:
MsgBox "請選擇 檔案1"
Filename1 = Application.GetOpenFilename("Excel File,*.xlsx,Excel File,*.xls", , "檔案")
MsgBox "選擇 檔案2"
Filename2 = Application.GetOpenFilename("Excel File,*.xlsx,Excel File,*.xls", , "檔案")
If Filename1 = "" Or Filename2 = "" Then
GoTo 12
Else
Set wk1 = Workbooks.Open(Filename1)
Set wk2 = Workbooks.Open(Filename2)
n = wk2.Sheets(1).Columns(1).Find("*", searchdirection:=xlPrevious).Row
For i = 1 To n
w = wk2.Worksheets.Count
For k = 1 To w
sh1 = wk1.Worksheets(k)
m = sh1.Rows(6).Find("*", searchdirection:=xlPrevious).Column ’除錯至此，報錯。
For j = 1 To m
If wk2.sh2.Cells(i, 1) = Left(sh1.Cells(6, j + 2), 4) Then
wk2.sh2.Cells(i, 2) = sh1.Cells(27, j + 3)
wk2.sh2.Cells(i, 3) = sh1.Cells(28, j + 3)
Exit For
End If
Next
Next
Next
End If
wk1.Save
wk2.Save
wk1.Close
wk2.Close
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/248264.html
標籤：VBA
上一篇：求助批量將資料文本，轉換為excel，分隔符可自定義，并且將所有欄位保存為文本
下一篇：大量資料如何分析