VBAを使用してAccessにテキストとしてExcelファイルを保存する

Question

（.xls）ファイルを開き、Microsoftのアクセスでテキストファイルとして保存しようとしています。なぜこれが揺れているのか分かりません。あなたがへの参照を設定していない場合

Const xlTextWindows = 20 (&H14) 
    Element of Excel.XlFileFormat 

：

Dim xlApp As Object 

Set xlApp = CreateObject("Excel.Application") 

xlApp.Visible = True 

Dim strFile As String, Table As String Dim wbk As Object 

Set wbk = xlApp.Workbooks.Open(FileName:="C:\Test.xls") 
ChDir "C:\Users\" & Environ("UserName") & "\Desktop" 

次の行には、オブジェクトブラウザから赤で、私に「という名前のパラメータ期待」エラーを与える

wbk.SaveAs FileName:="C:\Users\" & Environ("UserName") & "\Desktop\Test.txt", _ 
FileFormat:=xltextwindows, CreateBackup:=False** 

Set xlApp = Nothing 

Answer 1

Excel Object Library（レイトバインディングを使用していることが示唆しているように）のコードにこの宣言を追加する必要があります。

Const xlTextWindows = 20