Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
473 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11525】EXCELの出力について akari 10/3/12(金) 11:17 質問[未読]
【11528】Re:EXCELの出力について 超初心者 10/3/13(土) 9:40 発言[未読]
【11532】Re:EXCELの出力について akari 10/3/15(月) 9:18 質問[未読]
【11533】Re:EXCELの出力について 超初心者 10/3/15(月) 10:33 発言[未読]
【11535】Re:EXCELの出力について akari 10/3/15(月) 11:09 質問[未読]
【11536】Re:EXCELの出力について 超初心者 10/3/15(月) 11:39 発言[未読]
【11538】Re:EXCELの出力について akari 10/3/15(月) 14:15 質問[未読]
【11539】Re:EXCELの出力について 超初心者 10/3/15(月) 15:11 発言[未読]
【11540】Re:EXCELの出力について akari 10/3/17(水) 13:03 お礼[未読]
【11534】Re:EXCELの出力について akari 10/3/15(月) 10:55 質問[未読]
【11525】EXCELの出力について
質問  akari  - 10/3/12(金) 11:17 -
引用なし
パスワード
   ExcelFileへの出力について、教えていただきたいです。
あるクエリ9のデータをExcelへ出力したいですが、以下のコードを真似して
実現したいですので、ご伝授下さい。

質問I：CSVではなくExcel2003へ出力したいです。
質問II：以下のコードを利用すると、タイトルがなくなるから、解決策を教えて
　　　　いただきたいです。
質問III：出力ファイル名の後ろに「＿」をつけて、その後は月次年月の
　　　　第一行目のレコードのデータを利用したいです。
　　　　※ファイル名は、
　　　　　　　　　　　生産実績＿201003
　　　　

クエリ9
月次年月　　生産場所　　生産チーム　　生産数
201003　　　大阪製作所　第一課　　　　20
201002　　　羽生製作所　第二課　　　　20
201003　　　大阪製作所　第一課　　　　20


Private Sub コマンド0_Click()
　　DoCmd.TransferText acExportDelim, , "クエリ9", "c:\生産実績.csv"
End Sub
【11528】Re:EXCELの出力について
発言  超初心者  - 10/3/13(土) 9:40 -
引用なし
パスワード
   ▼akari さん：

マクロで
アクション：ワークシート変換
を行ってみると良いかもです。

「マクロを Visual Basic に変換」
という機能もありますので、
コード作成のヒントとなるかと思います。
（私のAcc2000には付いてます＾＾；；）


変数で保存名を作成し、
Dim HozonName As String
HozonName = "c:\生産実績_" & _
　　　　　　Format([月次年月の第一行目], "yyyymm") & _
　　　　　　".xls"
と一旦変数に格納し、

DoCmd.〜(略)〜 ,"クエリ9", HozonName
こんな感じで出力できるかと思います。


参考までに。
【11532】Re:EXCELの出力について
質問  akari  - 10/3/15(月) 9:18 -
引用なし
パスワード
   クエリ
仕入日付　　製造場所
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
【11533】Re:EXCELの出力について
発言  超初心者  - 10/3/15(月) 10:33 -
引用なし
パスワード
   ▼akari さん：

まず、質問内容を変える場合は、
スレを変えた方が良いです。
（エクセル出力の質問 --> 既存のファイル名の変更）

全てに私が回答できれば良いのですが、
私では分からなかった場合、回答が付きにくくなります。

今回の場合は、一連の出力作業の中での質問であるとは推察しますが、
その場合も、最初のスレに記載しておかないと、
「あとだし」と迷惑行為にとられかねませんのでご注意を。

また、エクセル出力問題が解決したのであれば、その旨の
書き込みがあるとありがたいです。


本題、名前変更の件＾＾；；
シングルステップでコードを実行する方法はご存知でしょうか？
プロシージャ内にカーソルを置いて[F8]キーにて、一行ずつ
実行していく方法です。
（コードによっては、ブレークポイントで止めたあとに[F8]）

こちらを行うと、問題の箇所を絞り込み易いです。

それらを踏まえた上で、

Debug.Print クエリ.仕入日付
にて確認してみて下さい。


一応、
アンダーバー「＿」が全角・半角、統一されてない事、
> Name "C:\結果格納\Table＿Ａ.xls" As _　
>> 　　　　　　　　　'↓変更後のファイル名
> 　　 "C:\結果格納\" & "Table_" & Format$(クエリ.仕入日付, "yyyymmdd") & ".xls"
こちらのコメントは質問の為書き込んだ（？）ので、
実際のコードでは解決されているものと考えます＾＾；；
【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
【11535】Re:EXCELの出力について
質問  akari  - 10/3/15(月) 11:09 -
引用なし
パスワード
   Accessの質問です。

Debug.Print クエリ.仕入日付を実行すると、エラーがでました。
【11536】Re:EXCELの出力について
発言  超初心者  - 10/3/15(月) 11:39 -
引用なし
パスワード
   ▼akari さん：

> どこに間違っているか？

>> Debug.Print クエリ.仕入日付を実行すると、エラーがでました。

判明できたようで、よかったです＾＾；


「クエリ.仕入日付」が何なのかはこちらでは分かりませんので、
そこを中心に確認していくと良いかもです。
【11538】Re:EXCELの出力について
質問  akari  - 10/3/15(月) 14:15 -
引用なし
パスワード
   C:\ABC\Table＿旧.xlsのファイル名を「新＿20100315.xls」へ変更したいので、
以下のコードを書きました。実際実行したら、エラーがでました。
ご伝授下さい。
　「DLookup([仕入日付], "クエリ")」を使う理由は、クエリの仕入日付の最初
の値（20100315）をとるためです。

Name "C:\ABC\Table＿旧.xls" As "C:\ABC\" & "新＿" & DLookup([仕入日
付], "クエリ") & ".xls"
【11539】Re:EXCELの出力について
発言  超初心者  - 10/3/15(月) 15:11 -
引用なし
パスワード
   ▼akari さん：

> 〜 DLookup([仕入日付], "クエリ") 〜
　〜 DLookup("仕入日付", "クエリ") 〜

としてみて下さい。
【11540】Re:EXCELの出力について
お礼  akari  - 10/3/17(水) 13:03 -
引用なし
パスワード
   できました！！
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
473 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free