Access VBA質問箱 IV

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

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


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

5649 / 9994

←次へ　｜　前へ→


	【7560】RE:分類されているコード毎にＥＸＣＥＬの別シートへエクスポートしたい

とも - 06/3/20(月) 15:11 -


	引用なし

	パスワード

テーブル名　testテーブル
コード　氏名
1111　　山田
1111　　山田
2222　　佐藤
2222　　佐藤
2222　　佐藤
3333　　鈴木
・・・・・・・・・・・・・・・・・・・・・・・・
Dim RS As DAO.Recordset
Dim Rst As DAO.Recordset
Dim xlsApp As Object
Dim xlsWkb As Object
Dim XName As String
Dim SName As String

　XName = "C:\マイドキュメント\test.xls"
　Set xlsApp = CreateObject("Excel.Application")
　
　Set RS = CurrentDb.OpenRecordset("testテーブル", dbOpenDynaset)
　
　　Do Until RS.EOF
　　　 Set Rst = CurrentDb.OpenRecordset(RS![???], dbOpenDynaset)
　　　　　 SName = RS![Sheet1]
　　　　　 With xlsWkb.Sheets(SName)
　　　　　　　.Range(RS![A1]).CopyFromRecordset Rst
　　　　　 End With
　　　 Rst.Close
　　　 RS.MoveNext
　　Loop
　　Set Rst = Nothing
　　RS.Close: Set RS = Nothing
　　xlsWkb.Close True: Set xlsWkb = Nothing
　　xlsApp.Quet: Set xlsApp = Nothing
　 End Sub

(11行目の???部分の入力が不明です）

このように入力してみましたが、エラーとなります。
Set xlsWkb = xlsApp.Workbooks.Open(XName)
この部分が黄色くなります。

エラーメッセージは
　「実行時エラー'1004':
　　'C:\マイドキュメント\test,xls'が見つかりません。
　　ファイル名およびファイルの保存場所が正しいかどうか確認してください。」
と出ます。

407 hits

▼

【7560】RE:分類されているコード毎にＥＸＣＥＬの別シートへエクスポートしたい とも 06/3/20(月) 15:11

≪