|
かみちゃんさん、返答ありがとうございます。
全て手作業で可能です。
また、下記の点は両方ともおっしゃるとおりです。
>テキストファイルをシート上に読み込むということですか?
>ハイパーリンクのことでしょうか?
マクロの記録、行ってみました↓。
下記を見て、セルを選択してることやハイパーリンクを指定していることはわかるのすが、
テキストの名前をシート名に指定しすることや、テキストの内容をシートに読み込む点などが
わかりません。
また、フォルダ内のテキストの数なんかも都度変化していくと思うので、そういった点も
考えると、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
|
|