如何用vba打开一个excel文件，并在sheet1表格的单元格a1中输入数字45

Workbooks.Open Filename:="D:\1.XLSX"'打开文件
Workbooks.Open Filename:="D:\1.XLSX", Password:=“123”, writerespassword:=“123” '输入密码打开文件
Sheets("sheet1").range("a1")="45"本回答被提问者采纳

Sub test()
Set wb = Workbooks.Open("D:\1.xlsx") '打开文件
wb.Worksheets(1).[A1] = 45 '写入值
Application.DisplayAlerts = 0 '屏蔽提示消息
wb.Close 1 '保存关闭
Application.DisplayAlerts = 1 '取消消息屏蔽
End Sub
亲测成功。

Sub yy()
Dim wb As Workbook, sh As Worksheet
Set wb = Workbooks.Open("包含路径的文件名")
Set sh = wb.Sheets("Sheet1")
sh.Range("a1") = 45
End Sub