Excel VBA質問箱 IV

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

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


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

54360 / 76737

←次へ　｜　前へ→


	【27172】Re:開かれているテキストファイルの保存

ichinose - 05/8/1(月) 7:18 -


	引用なし

	パスワード

▼コムさん：
おはようございます。
>すでに開かれているテキストファイルがあります。
>この開かれているテキストファイルをデスクトップに保存し、
>閉じる方法を教えて下さい。

'============================================
Sub test()
　　MsgBox get_sp_fullpath("Desktop")
End Sub
'===============================================
Function get_sp_fullpath(keyword) As String
　　Set WsShell = CreateObject("WScript.Shell")
　　get_sp_fullpath = WsShell.SpecialFolders(keyword)
　　Set WsShell = Nothing
End Function

とすれば、デスクトップのパスが取得出来ます。
これを使って保存処理を行なって下さい。

0 hits

▼

【27169】開かれているテキストファイルの保存 コム 05/7/31(日) 23:31