以下のURLの質問に答えて頂けると幸いです。
https://detail.chiebukuro.yahoo.co.jp/qa/questio …
教えて頂けると幸いです。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
>ついでに方法1もマクロも教えて頂けると幸いです。
以下のようになります。
Public Sub Sub1()
Dim file_name As String
Dim file_path As String
file_name = "sample.txt"
If file_name = "" Then
MsgBox ("中止します")
Exit Sub
End If
file_path = ThisWorkbook.path & "\" & file_name
Open file_path For Output As #1
Print #1, "Sub1 あいうえお"
Close #1
End Sub
No.3
- 回答日時:
以下のマクロを登録してください。
方法2がSub2になります。
Sub2を実行すると、「ファイル名を入力してください」のダイアログが表示されるので、そこに「sample.txt」と入力し、OKをクリックします。
そうすると、sample.txtのファイルが作成されます。
その内容は「Sub2 あいうえお」となっています。
注意:Sub2の関数が出力したことが分かるように、
書き出した文字列の先頭をSub2にしています。
方法3がSub3になります。
まず、A1セルにsample.txtと入力しておいてください。
Sub3を実行すると、sample.txtのファイルが作成されます。
その内容は「Sub3 あいうえお」となっています。
注意:Sub3の関数が出力したことが分かるように、
書き出した文字列の先頭をSub3にしています。
Sub2では
file_name = InputBox("ファイル名を入力してください")
でファイル名を取得します。
Sub3では、
file_name = Range("A1").Value
でファイル名を取得します。
ファイル名を取得した後は、Sub2とSub3は、全く同じ処理であることに
注目してください。(書き出す内容のみ、Sub2とSub3の違いがあります)
--------------------------------------------
Public Sub Sub2()
Dim file_name As String
Dim file_path As String
file_name = InputBox("ファイル名を入力してください")
If file_name = "" Then
MsgBox ("中止します")
Exit Sub
End If
file_path = ThisWorkbook.path & "\" & file_name
Open file_path For Output As #1
Print #1, "Sub2 あいうえお"
Close #1
End Sub
Public Sub Sub3()
Dim file_name As String
Dim file_path As String
file_name = Range("A1").Value
If file_name = "" Then
MsgBox ("中止します")
Exit Sub
End If
file_path = ThisWorkbook.path & "\" & file_name
Open file_path For Output As #1
Print #1, "Sub3 あいうえお"
Close #1
End Sub
No.1
- 回答日時:
>以下の写真で、セルにあらかじめ入力されている値を使う方法とは、どういう方法でしょうか?
例えば、あるファイルにデータを書き出すとき、そのファイル名をどのように指定するかということの1つの方法です。
ファイル名が"sample.txt"だとすると、これをマクロにどう指定するかです。
方法1:
永久に"sample.txt"を採用し、変える必要がないなら
file_name = "sample.txt"
とし、書き込むファイル名として、file_nameを使います。
方法2:
毎回、ファイル名を変えて出力したいなら、
ダイアログを表示して、「sample.txt」と入力してもらい、その値を使用します。
file_name = InputBox("ファイル名を入力してください")
上記のようにすると、オペレータが入力した値が、file_nameに設定されます。
そして、書き込むファイル名として、file_nameを使います。
方法3:
毎回、ファイル名が変わるというわけではないが、今後、変わるかもしれないような場合は、あらかじめ、どこかのセル(例えばA1とします)に、
「sample.txt」と設定しておき、そのセルの内容をファイル名とします。
file_name = range("A1").value
とすると、A1セルの内容がfile_nameに設定されます。
そして、書き込むファイル名として、file_nameを使います。
上記の方法3が「セルにあらかじめ入力されている値を使う方法」になります。どの方法を採用するかは、マクロの作成者が決めます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- マウス・キーボード キーボードについて。 3 2023/11/29 15:25
- その他(プログラミング・Web制作) Pythonについて。 2 2023/12/23 15:57
- C言語・C++・C# C言語について。 2 2023/12/02 16:03
- C言語・C++・C# C言語について。 1 2023/12/04 16:35
- C言語・C++・C# ストリーム 意味について。 4 2023/10/30 18:17
- C言語・C++・C# C言語について。 2 2023/11/11 03:23
- マウス・キーボード タイピングについて。 3 2024/06/05 19:02
- C言語・C++・C# C言語 解答について。 4 2023/11/19 21:57
- その他(プログラミング・Web制作) Pythonについて。 5 2024/01/13 09:01
- Word(ワード) 大学のレポートについてです。以下の質問をした者です。 https://oshiete.goo.ne. 4 2024/05/08 12:21
このQ&Aを見た人はこんなQ&Aも見ています
-
excelVBAについて。
Excel(エクセル)
-
excelVBAについて。
Excel(エクセル)
-
excelVBAについて。
Excel(エクセル)
-
-
4
excelVBAについて。
Excel(エクセル)
-
5
excelVBAについて。
Excel(エクセル)
-
6
excelVBAについて。
Excel(エクセル)
-
7
excelVBAについて。
Excel(エクセル)
-
8
vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
9
エクセル初心者です 用語とか良く分からないので簡単に説明していただけると幸いです 表を作っているので
Excel(エクセル)
-
10
excelVBAについて。
Excel(エクセル)
-
11
実務の処理について。
Excel(エクセル)
-
12
8:40までの出勤は全て8:30にする関数を教えて下さい!!
Excel(エクセル)
-
13
excelVBAについて。
Excel(エクセル)
-
14
excelVBAについて。
Excel(エクセル)
-
15
excelVBAについて。
Excel(エクセル)
-
16
excelVBAについて。
Excel(エクセル)
-
17
ファイルとフォルダの移動について。
Excel(エクセル)
-
18
ファイルパスについて。
Excel(エクセル)
-
19
【マクロ】functionプロシージャの、変数について
Excel(エクセル)
-
20
「cells」が上手く機能しない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件付書式設定にて、本日の日...
-
Excel 複数のセルが一致すると...
-
空白セルに斜線(罫線)
-
【マクロ】findメソッドで見つ...
-
Excelオンライン 条件にあい、...
-
Excelで職務経歴書作成方法
-
3〜400人分のデータをExcelで管...
-
Excelの関数内の文字を一括変換...
-
エクセルに、105と入力すると、...
-
Excel 条件に合ったセルを抽出...
-
Excel 条件に合うセルのみ合計...
-
エクセルで同じブックを開くに...
-
エクセルで、一部のセルだけ固...
-
Excel 日付の表示が直せません...
-
Excelで別のブックのセルを参照...
-
エクセルで印刷するとき
-
マクロ・VBAで、当該ファイルの...
-
Excelファイルを開くと私だけVA...
-
エクセルのマクロを記録して即...
-
エクセルについてどう関数を使...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelファイルを開くと私だけVA...
-
エクセルについてどう関数を使...
-
マクロ・VBAで、当該ファイルの...
-
エクセルのセルに画像は埋め込...
-
エクセルで、一部のセルだけ固...
-
【マクロ、画像あり】A表かB表...
-
エクセルでカウントする
-
【マクロ】コードを少しでも、...
-
VBA_日時のソート
-
エクセルで教えてください。 例...
-
エクセル 月間シフト表で曜日ご...
-
セルの左に余白を付ける
-
エクセル
-
エクセルについて教えてください
-
2枚のエクセル表で数字をマッチ...
-
ExcelのIF関数との組み合わせの...
-
エクセルのファイルのコピーを...
-
エクセルで二つのブックの違い...
-
空白処理を空白に
-
Excelのチェックボックスについ...
おすすめ情報
方法2と方法3をもう少し分かりやすく言葉を変えて教えて頂けると幸いです。
すみません。全ての最後の行の書き込むファイル名〜の所が分かりません。教えて頂けると幸いです。
すみません。ついでに方法1もマクロも教えて頂けると幸いです。