Excel VBA質問箱 IV

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

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


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

27064 / 76738

←次へ　｜　前へ→


	【54998】Re:マイドキュメント以外でのファイルの読み書きこみ

TEST - 08/4/10(木) 18:39 -


	引用なし

	パスワード

▼Jaka さん：

御連絡ありがとうございます。

デスクトップにvbatestというフォルダーを作成してその中で実行したところ

C:\Documents and Settings\TEST\デスクトップ\vbatest
C:\Documents and Settings\TEST\デスクトップ

と記載されてファイルを開くプロパティが出てきて
デフォルトでファイルの場所がマイドキュメントを指定してきました。

単にデスクトップ上で実行してみた場合も

C:\Documents and Settings\TEST\デスクトップ
C:\Documents and Settings\TEST\デスクトップ

と記載されてファイルを開くプロパティが出てきて
デフォルトでファイルの場所がマイドキュメントを指定してきました。

>これを新規ブックに書いてデスクトップに保存してから実行して、結果を知らせてください。
>ＴＳＶファイルは、デスクトップにおいておいて下さい。
>ファイル選択のダイアログが出たら、デスクトップのＴＳＶファイルを選択。
>
>Sub nsnn()
>Cells(1, 1).Value = ThisWorkbook.Path
>Cells(2, 1).Value = CreateObject("WScript.Shell").SpecialFolders("Desktop")
>Cells(3, 1).Value = Application.GetOpenFilename("Excelファイル (*.tsv), *.tsv")
>st = Dir(Cells(3, 1).Value)
>If st = "" Then
>　 Cells(4, 1).Value = "無し"
>Else
>　 Cells(4, 1).Value = st
>End If
>End Sub

1 hits

▼

【54811】マイドキュメント以外でのファイルの読み書きこみ TEST 08/3/31(月) 11:28