我对vba比较陌生。这是一个用于打开访问和关闭工作簿的测试宏。我在 Win 7 和 Win XP 上使用 Excel 2007
这工作正常,但我只能将结果放在包含宏的 WorkSheet 中。为了尝试使其可重用,我使用了注释代码行并将宏放在 Personal.xlsb 文件中。我收到下标超出范围错误。我将不胜感激任何帮助?
Sub copyCount()
Dim wb As Workbook
Dim fname As String
Application.ScreenUpdating = False
fname = ActiveSheet.Name
Set wb = Workbooks.Open("C:\Users\Deepak\Documents\OFFICE\FixedValues.xlsx", True, True)
'With ActiveWorkbook.Worksheets("sheet1")
With ThisWorkbook.Worksheets(fname)
.Range("A1").Value = wb.Worksheets("common").Range("A1").Value
End With
wb.Close False
Set wb = Nothing
Application.ScreenUpdating = True
End Sub