私は比較的vbaに慣れていません。これは、アクセスを開いてブックを閉じるためのテスト マクロです。Win 7 および Win XP で Excel 2007 を使用しています。
これは正常に機能しますが、マクロを含むワークシートにしか結果を配置できません。再利用可能にするために、コメント付きのコード行を使用し、マクロを 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