Question

我有一个源文件，用户可以在每个月的工作表中输入每月数据（多个工作表包含Jan，Feb，...）。在另一个文件中，我希望用户输入年份和月份，我的宏应该从源文件中导入相关数据。我尝试使用以下代码执行该任务，但我收到了无法识别的错误。

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打开其他工作簿，然后从您选择的工作表中读取并复制单元格值：

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

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

1 个答案: