Excel VBA質問箱 IV

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

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


24222 / 76732 ←次へ | 前へ→

【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 質問
【57859】Re:フォルダ内のテキストファイルの内容を... かみちゃん 08/9/17(水) 21:32 発言
【57860】Re:フォルダ内のテキストファイルの内容を... ど素人 08/9/17(水) 22:16 発言
【57862】Re:フォルダ内のテキストファイルの内容を... neptune 08/9/17(水) 22:31 発言
【57864】Re:フォルダ内のテキストファイルの内容を... ど素人 08/9/17(水) 22:54 お礼
【57863】Re:フォルダ内のテキストファイルの内容を... かみちゃん 08/9/17(水) 22:40 発言
【57865】Re:フォルダ内のテキストファイルの内容を... ど素人 08/9/17(水) 23:02 お礼
【57861】Re:フォルダ内のテキストファイルの内容を... neptune 08/9/17(水) 22:21 発言

24222 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free