こんにちわ。ExcelVBAで、ワークシートのA列に入力されているデータをTextファイルに保存するプログラムを作りました。下記のものです。
=================================
Sub Expo_TXT()
Dim Rows As Long
Dim StrData As String
Dim Fs As Object, A As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("c:\test.txt", True)
For Rows = 1 To 10
StrData = Worksheets("Sheet1").Cells(Rows, 1).Value
A.WriteLine StrData
Next Rows
A.Close
End Sub
=================================
しかし見てのとおりcドライブのルートにtest.txtという名前で保存するようになっています。
できれば、そのパソコンのデスクトップに保存したいのですが、どうすれば、パソコンのデスクトップのPATHを取得できるでしょうか?
それぞれのパソコンのデスクトップは
c:\windows\デスクトップという様にWin98マシンもあれば
c:\Documents and Settings\Hanako\デスクトップや
c:\Documents and Settings\Taro\デスクトップという場合もあります。多分APIとか使うんだろうなと思い、Webの解説ページを読んだりしましたがAPI使ったことが無いのでチンプンカンプンでした。
できれば具体的なコーディング例をご提示いただければ助かります。
No.2ベストアンサー
- 回答日時:
Dim MyWSH As Object
Set MyWSH = CreateObject("WScript.Shell")
myDeskTopPath = MyWSH.SpecialFolders("Desktop")
Set MyWSH = Nothing
これでどうでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 3個のfileのセルデータを1個のfileのセルに貼り付けるVBAコードですが。 1 2023/02/20 09:21
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
マクロ始めたばかりです。 デスクトップにあるフォルダをVBAで開きたいのですが
Excel(エクセル)
-
エクセルをPDFにし複数のユーザーが各自の指定のデスクトップフォルダに保存するVBAを教えてください
Excel(エクセル)
-
-
4
VBAでの一時停止と再開の方法
その他(プログラミング・Web制作)
-
5
デスクトップ上のCSVファイルの削除について
Visual Basic(VBA)
-
6
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでほかのアプリケーシ...
-
Corel Digital Studioの動画をS...
-
VBAで、強制保存してブックを閉...
-
コマンドプロンプトでデスクト...
-
【Excel VBA】自動的にバックア...
-
Perlで、保存フォルダを指定す...
-
ExcelVBAでデスクトップのPATH...
-
VBScriptで日本語が変です
-
webページの特定の部分だけ消し...
-
vbaでIEの名前を付けて保存(A)...
-
読み取り専用ファイルを上書き...
-
onedriveで同期解除をしたら、...
-
マイドキュメントのフォルダの...
-
OneDriveアンインストール方法
-
沢山のフォルダにあるファイル...
-
if文の条件に関数が入ってる場...
-
copyコマンドについて
-
ファイルの保存をOnedriveのク...
-
ファイルのプロパティの属性の...
-
USBデータの消失
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
Corel Digital Studioの動画をS...
-
コマンドプロンプトでデスクト...
-
Excel VBAで作成したマクロをxl...
-
エクセルで「名前を付けて保存...
-
ExcelVBAでデスクトップのPATH...
-
VBA メモ帳の上書き保存がしたい
-
VBAで、強制保存してブックを閉...
-
irvineを利用してVBAからダウン...
-
VBScriptでのSaveAsについて
-
webページの特定の部分だけ消し...
-
VBScriptで日本語が変です
-
Pivot table で集計されたデー...
-
AccessVBAでレポートをPDFで出力
-
vbaでIEの名前を付けて保存(A)...
-
ファイルのダウンロード保存先...
-
エクセル:マクロ:保存時に連...
-
htmlから取り込んだ を消...
-
VBAでPDF作成をしたあと、指定...
おすすめ情報