从另一个文件导入数据时使用 for each

Question

我有一个源文件，用户可以在每个月的 sheet 中输入月度数据（多个 sheet 与一月、二月、...）。在另一个文件中，我希望用户输入年份和月份，我的宏应该从源文件中导入相关数据。我尝试使用以下代码完成任务，但收到无法识别的错误。

strAsset_Path = Asset_RS_URL & "\" & strYear & "\" & Asset_RS_FILENAME & strMonth

Set strAsset_CodeList = strAsset_Path & strMonth.Range("A3:A500").Value

For Each MyCell In strAsset_CodeList
    Response.Write MyCell Range("A3:A500").Value
Next

Answer 1

通过 vba 打开另一个工作簿，然后从您选择的 sheet 中读取并复制单元格值：

strAsset_Path = Asset_RS_URL & "\" & strYear & "\" & Asset_RS_FILENAME 

Set wb = Workbooks.Open(strAsset_Path , ReadOnly:=True)

Set Rng = wb.Worksheets(strMonth).Range("A3:A500")

For Each mycell In Rng
    ThisWorkbook.Sheets("Sheet1").Range(mycell.Address).Value = wb.Worksheets(strMonth).Range(mycell.Address)
Next mycell

wb.Close

从另一个文件导入数据时使用 for each

using for each while importing data from another file

excel

vba