Access VBA質問箱 IV

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

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


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

1750 / 9994

←次へ　｜　前へ→


	【11534】Re:EXCELの出力について

akari - 10/3/15(月) 10:55 -


	引用なし

	パスワード

クエリ
仕入日付　　製造場所
20100301　　大阪　　----＞クエリの第一行の仕入日付は「20100301」のため、変換後のファイル名はTable_20100301.xls
20100310　　神戸

以下のコードを動かして見ましたが、やはり動きません。
どこに間違っているか？
ご指導下さい！！

Private Sub 終了_Click()
　'新規生成したファイルの存在確認
　　If Dir("C:\結果格納\Table＿Ａ.xls") <> "" Then
　　　　　　　　　　　　　'↓変更前のファイル名　　　　
　　　　Name "C:\結果格納\Table＿Ａ.xls" As _　
　　　　　　　　　　　　　'↓変更後のファイル名
　　　　　　 "C:\結果格納\" & "Table＿" & Format$(クエリ.仕入日付, "yyyymmdd") & ".xls"
　　Else
　　　　MsgBox "「C:\結果格納\Table＿Ａ.xls」は生成されていません! """
　　End If
'終了処理へ
DoCmd.Quit
End Sub

493 hits

▼

【11525】EXCELの出力について akari 10/3/12(金) 11:17