Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
182 / 13112 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78760】エクセルの指定セルをテキストデータに書き出したい かわかみまめお 17/1/16(月) 21:02 質問[未読]
【78791】Re:エクセルの指定セルをテキストデータに... γ 17/1/24(火) 7:09 回答[未読]
【78792】Re:エクセルの指定セルをテキストデータに... かわかみまめお 17/1/25(水) 0:56 お礼[未読]
【78791】Re:エクセルの指定セルをテキストデータ...
回答  γ  - 17/1/24(火) 7:09 -
引用なし
パスワード
   '左上のセルの値をファイル名にする
　　File_name = Cells(Selection.Row, Selection.Column).Value '余り感心しないが
　　File_fullpath = ThisWorkbook.Path & "\" & File_name & "_j.txt"
　　
'ファイルの読み込みと出力
　　'''Open File_name & "_j.txt" For Output As #1
　　Open File_fullpath For Output As #1

ということです。（変数宣言の追加は省略しました）
【78792】Re:エクセルの指定セルをテキストデータ...
お礼  かわかみまめお  - 17/1/25(水) 0:56 -
引用なし
パスワード
   γ様

御教示どうもありがとうございます。

1.1つ前のγ様の投稿で頂きましたアドバイスを元に自分で試行錯誤の上、

Open File_name & "_j.txt" For Output As #1
を
Open ThisWorkbook.Path & "\" & File_name & "_j.txt" For Output As #1

に変更したところ、うまく動きました！


2.しかしながら、今回、γ様の投稿で頂きました、
先に、　
File_fullpath = ThisWorkbook.Path & "\" & File_name & "_j.txt"
としておき、後で、
Open File_fullpath For Output As #1
として使う、という記述方法の方が、今後複雑になったときのことを考えると、
応用も効き、より適切なのだと思いました。

次につなげたいと思います。

お陰様で、今回必要なことが自動できるようになりました。
ご丁寧に、御教示頂きどうも有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
182 / 13112 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free