Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5042 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52506】ドライブ指定 かんちゃん 07/11/16(金) 4:35 質問[未読]
【52507】Re:ドライブ指定 じゅんじゅん 07/11/16(金) 7:01 発言[未読]
【52524】Re:ドライブ指定 maka 07/11/16(金) 22:30 発言[未読]
【52528】Re:ドライブ指定 Pachi 07/11/17(土) 9:06 発言[未読]
【52910】Re:ドライブ指定 かんちゃん 07/12/9(日) 11:18 お礼[未読]
【52506】ドライブ指定
質問  かんちゃん  - 07/11/16(金) 4:35 -
引用なし
パスワード
   こんにちは。VBA初心者です。教えてください。
職場でUSBメモリーを使い、名簿処理などを行っています。
誰もが使えるようにと、USBメモリー内で作業できるようにマクロを組みたいのですが、差し込むコンピューターによってドライブ名がEやFといったように変わってきてしまいます。そのため、ファイルなどを開きたいときに、その都度、マクロのドライブ名を変えていかないと開かないのですが、ドライブ指定しなくてもUSBメモリー内で作業できるようにならないでしょうか。
よろしくお願いします。
【52507】Re:ドライブ指定
発言  じゅんじゅん  - 07/11/16(金) 7:01 -
引用なし
パスワード
   ドライブ直下のTEST.xlsと言うファイルが、どこのドライブなのかを
調べるサンプルです。

Sub Test()
　　Dim FSO As Object
　　Dim wd As Object
　　Dim Path As String

Set FSO = CreateObject("Scripting.FileSystemObject")
　　On Error Resume Next
　　　 For Each wd In FSO.Drives
　　　　　
　　With FSO
　　　 If .FileExists(.GetDrive(wd) & "\TEST.xls") Then
　　　　　 Path = .GetDrive(wd)
　　　 End If
　　End With
　　　
　　　Next
　　On Error GoTo 0

　　　 If Path = "" Then
　　　　　MsgBox "みつかんなかった"
　　　 Else
　　　　　MsgBox Path & "にあったよ"
　　　 End If
Set FSO = Nothing

End Sub

ご参考になれば。
【52524】Re:ドライブ指定
発言  maka  - 07/11/16(金) 22:30 -
引用なし
パスワード
   ▼かんちゃん さん：
>こんにちは。VBA初心者です。教えてください。
>職場でUSBメモリーを使い、名簿処理などを行っています。
>誰もが使えるようにと、USBメモリー内で作業できるようにマクロを組みたいのですが、差し込むコンピューターによってドライブ名がEやFといったように変わってきてしまいます。そのため、ファイルなどを開きたいときに、その都度、マクロのドライブ名を変えていかないと開かないのですが、ドライブ指定しなくてもUSBメモリー内で作業できるようにならないでしょうか。
>よろしくお願いします。


答えになるか分かりませんが・・。
メインの呼び出しようを作って、

ThisWorkbook.Path & フォルダ名とかファイル名

などで、開いたり、閉じたりしてみてはどうでしょうか？

うまく説明できなくてすみません。
いかんせん、私も初心者なものなので・・・。

私は、上のようにしてExeclのBookを管理しようとしています。
【52528】Re:ドライブ指定
発言  Pachi  - 07/11/17(土) 9:06 -
引用なし
パスワード
   ▼かんちゃん さん：

ドライブレターを指定しないと、ローカルディスクの検索は出来ないです。
たとえUSBメモリーを同時に複数個使っても、ドライブ名がそれぞれ差し込んだ状態でアルファベットが変わります。
ドライブ名は、事前に設定することです。
出来る限りアルファベットの後ろの方を使うと良いでしょう。
例えば「Z」とか「Y」とかなどです。

ドライブも文字にそれほど神経を使うことは無いのでは…

修正も簡単ですMyComputer→USBMemory選択→F2で簡単に変えられます。
「コロン」を忘れないように・・・

外付けハードディスクだってドライブレターの設定が必要ですよ。
ドライブ名の設定は同じ方法で出来ます。

VBAでドライブ名を変えたり、ドライブ名に追随させて動作させると
言うことは、必要ないように思いますが…如何でしょう。
【52910】Re:ドライブ指定
お礼  かんちゃん  - 07/12/9(日) 11:18 -
引用なし
パスワード
   じゅんじゅんさん　makaさん　Pachiさん ありがとうございました。
コンピューターが壊れていたため、お礼が遅くなり、申し訳ありません。
またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5042 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free