|
▼Jaka さん:
御連絡ありがとうございます。
デスクトップにvbatestというフォルダーを作成してその中で実行したところ
C:\Documents and Settings\TEST\デスクトップ\vbatest
C:\Documents and Settings\TEST\デスクトップ
と記載されてファイルを開くプロパティが出てきて
デフォルトでファイルの場所がマイドキュメントを指定してきました。
単にデスクトップ上で実行してみた場合も
C:\Documents and Settings\TEST\デスクトップ
C:\Documents and Settings\TEST\デスクトップ
と記載されてファイルを開くプロパティが出てきて
デフォルトでファイルの場所がマイドキュメントを指定してきました。
>これを新規ブックに書いてデスクトップに保存してから実行して、結果を知らせてください。
>TSVファイルは、デスクトップにおいておいて下さい。
>ファイル選択のダイアログが出たら、デスクトップのTSVファイルを選択。
>
>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
|
|