エクセルのマクロについて質問です。


  Dim File種類, Prompt, Item As String
Dim FileNamePath As Variant

File種類 = "テキスト ファイル (*.txt),*.txt"
Prompt = "csv ファイルを選択してください"
FileNamePath = SelectFileNamePath(File種類, Prompt)

If FileNamePath = False Then
End
End If

こんな感じでテキストを呼び出すマクロを組んだんですが
このままでは、開いたテキストの名前がそのままエクセルのシート名になります。

そこで、テキストを開いた際に、開いたファイルを特定のシート名に変更する
事はできないでしょうか。

無理な場合、開いたシートの内容をすべてコピーして
新しくシートを作成(この新しく作るシートを特定の名前にする)
そこに内容を貼り付けるといった内容はどうでしょうか。

むりです。とかだけの回答はご勘弁ください。
無理なら無理で相応の対策を考えていただけたら最高です。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2011/07/14 18:16:23
  • 終了:2011/07/14 18:48:25

ベストアンサー

id:nattow No.1

nattow回答回数102ベストアンサー獲得回数272011/07/14 18:33:29

ポイント300pt

おそらく下記のサイトを参考にされているんだと思います

http://www.k1simplify.com/vba/tipsleaf/leaf12.html

質問文のコードはおそらく

Workbooks.Open Filename:=FileNamePath

が続くのだと思います。

シート名を変更するには、その文の次にさらに

ActiveSheet.Name = "シート名"

とすれば OK です

id:adokku

完璧な回答ありがとうございました!

ベストアンサーでした!

これにて質問終了させていただきます。

2011/07/14 18:49:28

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません