フォルダのアドレスと、そのフォルダ内で選択されているファイルのファイル名を
一括でコピーする方法はありますでしょうか。
画像のような状態で何か操作することで
下記のように保存先とファイル名をコピーできるようにしたいです。
---------------------------------
\\ああああ\いいいい\・テスト
テキスト.txt
---------------------------------
※「 テキスト.txt 」ファイルは開いていない状態です。
エクセルを立ち上げている状態ならVBAを使えばコピーできる など
何か方法が無いかお知恵頂きたいです。
何卒宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
画面からしてXPのようなので、下記をfoo.vbsという名前のファイルで作って、ファイルをドロップするか、SendToフォルダに入れて右クリックで「送る」かすると、クリップボードにコピーされます。
Officeがインストールされていることが前提。
Set uf=CreateObject("Forms.Form.1")
Set tb=uf.Controls.Add("Forms.TextBox.1").Object
Set Args = WScript.Arguments
if Args.Count > 0 then
pos=instrrev(Args(0),"\")
tb.Text=left(Args(0),pos-1)&vbCRLF&mid(Args(0),pos+1)
tb.MultiLine=True
tb.SelStart=0
tb.SelLength=tb.TextLength
tb.Copy
end if
この回答への補足
ご回答ありがとうございます!
コードもご丁寧に全て記載頂きありがとうございます。
vbsという形式のファイルは初めて作成しました。
ファイルをドロップすると、まさに保存先とファイル名がコピーされて
とっっっっても驚きました!!!!!!凄いですね、、、、、。
>SendToフォルダに入れて右クリックで「送る」
こちらは私には理解できず、申し訳ありません、、、。
本当にありがとうございます!!!!
ありがとうございました!!
社内メールで頻繁に「保存場所・名前」を送る機会があり、
かなり作業の効率化ができました!!!!
同僚にも共有したところ、同僚もまた驚いておりました。
本当にありがとうございます!!
No.1
- 回答日時:
エクセルのVBAでよろしいですよね
A1セルにファイル名が必要なパスをしているとします。
Sub Sample1()
Dim buf As String, i As Long
Dim j As Long
buf = Dir(Range("A1").Value & "\*.*")
Do While buf <> ""
i = i + 1
ThisWorkbook.Worksheets(1).Cells(i + 1, 1).Value = buf
buf = Dir()
Loop
End Sub
をエクセルで実行してみてください。
この回答への補足
ご回答ありがとうございます!
また、コードもご丁寧にありがとうございます!!
返事が遅くなり大変申し訳ありません。
頂いたコードを記載して、実行してみたのですが、
以下の文字がエクセルに表示されます。
-------------------
AUTOEXEC.BAT
CONFIG.SYS
-------------------
フォルダを開いて、ファイルを選択した状態にしてから
実行したのですが、、、、。
私の記載の仕方が間違っていると思うのですが、どこが間違っているのかが
判断できず。。。お時間ございましたら作成したファイルを見て頂けると
幸いでございます。
写させて頂いたコードを記載したファイルを下記にアップ致しました。
--------------------------------------------------------------------
http://firestorage.jp/download/3b71fdb265e87d4df …
--------------------------------------------------------------------
何卒宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- UNIX・Linux Ubuntu でinvalid filenameとなるファイルをコピーする方法 3 2023/06/08 22:26
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- デスクトップパソコン フォルダ内のファイルをコピペ 2 2022/05/30 14:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ名やファイル名、テキ...
-
リカバリーディスクのコピーの...
-
フォルダのアドレスと選択した...
-
携帯電話のスーパーメールを、...
-
PCに保存していた写真を見られ...
-
linux duコマンドで困っています。
-
コマンドプロンプトで印刷実行
-
Teratermマクロの戻り値の取得失敗
-
エクセルVBAで、ファイルの情報...
-
index置いてもIndex of /が表示...
-
Excelファイルの特定のシートを...
-
テキストボックスのフォーカス...
-
拡張子をつくる
-
<a href="file:///フォルダ名/...
-
バッチ(Windows2000)での解析エ...
-
クリックしたボタンによってSel...
-
ノーツで特定文書を開く方法を...
-
同名フォルダを作成し、そのフ...
-
【至急】.htaccessによるディレ...
-
バッチファイルで特定のファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ名やファイル名、テキ...
-
コピーの際、ファイルの作成日...
-
検索用ソフトEverythingについて
-
リカバリーディスクのコピーの...
-
Excelの保存で「ワークスペース...
-
ファイル名の一括リネーム(変...
-
ディスクトップの移行できますか?
-
ローカル プロファイルが故障の...
-
大きいアイコン表示で画像ファ...
-
フォルダー構成のみをコピーしたい
-
EXCELファィルが元の大きさ10MB...
-
windows2000からxpにアドレス...
-
サーバへの自動ログインログアウト
-
soulseek日本語ぱっちについて...
-
フォルダのアドレスと選択した...
-
PCに保存していた写真を見られ...
-
同名フォルダを作成し、そのフ...
-
拡張子をつくる
-
Excelで外部のファイルの場所を...
-
linux duコマンドで困っています。
おすすめ情報