人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

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

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

●質問者: あどっく
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:AS CSV String txt どうでしょう
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● nattow
●300ポイント ベストアンサー

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

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

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

Workbooks.Open Filename:=FileNamePath

が続くのだと思います。

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

ActiveSheet.Name = "シート名"

とすれば OK です

◎質問者からの返答

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

ベストアンサーでした!

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ