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

如题所述

第1个回答  2017-09-27
Workbooks.Open Filename:="D:\1.XLSX"'打开文件
Workbooks.Open Filename:="D:\1.XLSX", Password:=“123”, writerespassword:=“123” '输入密码打开文件
Sheets("sheet1").range("a1")="45"本回答被提问者采纳
第2个回答  2017-09-27
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
亲测成功。
第3个回答  2017-09-27
Sub yy()
Dim wb As Workbook, sh As Worksheet
Set wb = Workbooks.Open("包含路径的文件名")
Set sh = wb.Sheets("Sheet1")
sh.Range("a1") = 45
End Sub

相似回答