Excel VBA質問箱 IV

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

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


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

24228 / 76738

←次へ　｜　前へ→


	【57860】Re:フォルダ内のテキストファイルの内容を一括整理

ど素人 - 08/9/17(水) 22:16 -


	引用なし

	パスワード

かみちゃんさん、返答ありがとうございます。

全て手作業で可能です。
また、下記の点は両方ともおっしゃるとおりです。

>テキストファイルをシート上に読み込むということですか？
>ハイパーリンクのことでしょうか？

マクロの記録、行ってみました↓。
下記を見て、セルを選択してることやハイパーリンクを指定していることはわかるのすが、
テキストの名前をシート名に指定しすることや、テキストの内容をシートに読み込む点などが
わかりません。
また、フォルダ内のテキストの数なんかも都度変化していくと思うので、そういった点も
考えると、Vマクロではなく、BAでしっかり組んだ方が良いとは思うのですが、やはり
自分には早すぎたでしょうか？

もしよければ、また助言いただければ幸いです。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2008/9/17　ユーザー名 :
'

'
　　Range("B3").Select
　　ActiveSheet.Paste
　　Range("B5").Select
　　ActiveSheet.Paste
　　Range("B7").Select
　　ActiveSheet.Paste
　　Sheets("Sheet2").Select
　　Sheets("Sheet2").Name = "A"
　　Range("C31").Select
　　Sheets("Sheet1").Select
　　Sheets("Sheet1").Name = "目次"
　　Range("B3").Select
　　ActiveSheet.Paste
　　Range("B4").Select
　　ActiveSheet.Paste
　　Range("B5").Select
　　ActiveSheet.Paste
　　Range("B3").Select
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
　　　　"A!A1", TextToDisplay:="excel.txt"
　　Range("B4").Select
　　Sheets("目次").Select
　　Range("B3").Select
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
　　　　"A!B3", TextToDisplay:="excel.txt"
　　Range("B4").Select
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
　　　　"A!B5", TextToDisplay:="powerpoint.txt"
　　Range("B5").Select
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
　　　　"A!B7", TextToDisplay:="word.txt"
End Sub

0 hits

▼

【57858】フォルダ内のテキストファイルの内容を一括整理 ど素人 08/9/17(水) 21:24