Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5012 / 9994

←次へ　｜　前へ→


	【8216】VBAにてパラメータに関する質問

Yaesu - 06/7/12(水) 10:15 -


	引用なし

	パスワード

お世話になります。
以下のVBAを実行すると、エラーがでてしまいます。
其の原因はテーブルABCのデータソース（クエリ）にはﾊﾟﾗﾒｰﾀが仕込んでいるからだと推測ですが・・・。
パラメータを外すことはできなくて、解決策はあるのでしょうか？
ご伝授ください。

Function text_Export01()
Const csXlPath As String = "C:\year\ABC.xls"
Dim i As Long
Dim xlsApp As Object
Dim xlsWkb As Object
Dim RS As DAO.Recordset
　　Set RS = CurrentDb.OpenRecordset("ABC", dbOpenSnapshot)・・・黄色反転
　　Set xlsApp = CreateObject("Excel.Application")
　　Set xlsWkb = xlsApp.Workbooks.Open(csXlPath)
　　'xlsApp.Visible = True
　　With xlsWkb.Sheets("cho_year")
　　　　.Range("A1:H65560").ClearContents
　　　　For i = 1 To RS.Fields.Count
　　　　　　.Cells(1, i).Value = RS(i - 1).Name
　　　　Next
　　　　.Range("A2").CopyFromRecordset RS
　　End With
　　xlsWkb.Close True: Set xlsWkb = Nothing
　　xlsApp.Quit: Set xlsApp = Nothing
/

283 hits

▼

【8216】VBAにてパラメータに関する質問 Yaesu 06/7/12(水) 10:15

≪