Question

通过VBA在access窗体中打开指定名称的excel文件

Option Compare Database
Option Explicit

Private Sub Command4_Click()
On Error GoTo 创建
Dim xlApp As Excel.Application
Dim xlWbk As Excel.Workbook
Dim xlWsh As Excel.Worksheet
Dim AAAA As String
Dim BBBB As String
Dim strRange As String
AAAA = Me!Text0
BBBB = Me!Text1
strRange = "A4"
Set xlApp = GetObject(, "Excel.Application")
xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\" & AAAA.value & ".xlsx")
Set xlWsh = xlWbk.Worksheets(BBBB.value)
xlWsh.Activate
xlWsh.Range(strRange).Value = Me!Text2
xlWbk.Save
Set xlWsh = Nothing
Set xlWbk = Nothing
Set xlApp = Nothing
创建:
If Err = 429 Then
Set xlApp = CreateObject("Excel.Application")
Resume Next
End If
End Sub

就是说要打开的工作表和工作簿名称都在文本框Text0、Text1中指定的啦（然后单元格的内容也是Text2指定的）。excel文件明明已经有了，上面的代码就是打不开。求助怎么做。

Answer 1

VBS不支持Excel 2007以上版本，只支持 Excel 2003 以下版本，其他没有仔细看。

Answer 2

为什么要用 AAAA.value呢？ 直接AAAA不就好了

Answer 3

".xlsx",你看看是不是扩展名有问题，用xls试试