Access VBA質問箱 IV

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

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


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

6430 / 9994

←次へ　｜　前へ→


	【6768】Re:レコード数を制御して、Excelへ吐き出し

Saiyama - 05/11/8(火) 18:17 -


	引用なし

	パスワード

まさ7251さん　こんばんわ、ヒントをいただいて、やってみましたが、うまくいかないです。よろしくお願いします。 >>質問とは、出力したファイルのFilenameはKwの後ろに「元kw.xls」の登録 >>日時を入れてほしいです。 >>イメージ >>元kw.xlsの登録日時→20051030　19:33の場合は、 >>Kw200510301933となってほしい。 > >>HinaName = "C:\KW_Hina.xls" > >>　　xName = "C:\KW.xls"　　　　＝＝＝＝＞ここです > >FileDateTime関数で、ファイルの更新日を求めることが出来ます。 >Format関数で、変換が出来ます。 >この２つの関数でご希望の処理は出来るかと思います。書いたコード： Sub TEXT() Dim QPath As String　　 Dim EName As String　　 Dim QName As String Dim SDateTime As String Dim Fdt As Atring 　　QPath = "C:\" 　　EName = "KW.XLS" 　　QName =　"クエリ" 　　Fdt =FileDateTime(QPath & EName) 　　SDateTime = Format(Fdt, "yyyymmdd","hhmm") 　　DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ 　　　　　　　　　　　　QName, QPath & EName & "_" & SDateTime End Sub