Access VBA質問箱 IV

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

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


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

1860 / 9994

←次へ　｜　前へ→


	【11416】Re:excel出力先をデスクトップに指定する

ＶＢＡ初心者 - 10/1/22(金) 12:48 -


	引用なし

	パスワード

▼超初心者さん
ＶＢＡ初心者です。
いろいろ考えてみたら、
Dim myDir As Stringと宣言して
xlsFileName = myDir & "\" & Format(Date, "yyyy_mm_dd") & "履歴データ一覧.xls"
と変更したら成功しました。

お手数おかけして申し訳ございません。
有難うございました。

>▼超初心者さん：
>こんにちは。
>　自分なりに修正して
>
>sub
>　
>Dim objWShell As Object 'WScript.Shell
>Dim strDesktopPath As String 'デスクトップの場所
>
>'Windows Script Hostのオブジェクトを作成する
>Set objWShell = CreateObject("WScript.Shell")
>
>'スペシャルフォルダ（特殊フォルダ）の場所を返す
>strDesktopPath = objWShell.SpecialFolders("Desktop")
>
>Set DB = CurrentDb
>　　xlsFileName = "strDesktop" & Format(Date, "yyyy_mm_dd") & "履歴データ一覧.xls"
>　　　Debug.Print xlsFileName　
>　　　　　　　　.
>　　　　　　　　.
>　　　　　　　　.(途中省略)
>xlsWkb.SaveAs xlsFileName, FileFormat:=56
>　　xlsWkb.Close: Set xlsWkb = Nothing
>　　xlsApp.Quit: Set xlsApp = Nothing
>　　　　　　　　
>end sub
>
>　としましたがユーザのデスクトップに書き出されません。
>デバックプリントで出力してもどこをどのように修正するのか
>わかりません。
>どうかご教授をお願いします。　
>
>>▼VBA初心者さん：
>>> 　「xlsFileName = "SpecialFolders("Desktop"):\" & Format
>>>　　(Date, "yyyy_mm_dd") & "ホストデータ.xls"」として、
>>> 使用しているユーザのデスクトップに保存されるでしょうか。
>>
>>Debug.Print xlsFileName
>>にて、xlsFileNameのデータの中身を確認してみると良いです。
>>きちんとしたファイル名（フルパス）になっていたら出力されます。
>>
>>
>>余談ですが、私のAcc2000では、デスクトップパスは、
>>CreateObject("WScript.Shell").SpecialFolders("Desktop")
>>このようにして取得します。
>>
>>2007から（？）の機能でCreateObjectなしでも使えるように
>>なっているのかもしれませんが、一応、参考までに。。。

1,969 hits

▼

【11410】excel出力先をデスクトップに指定する VBA初心者 10/1/21(木) 21:03