No.3ベストアンサー
- 回答日時:
#2のものです。
CSVファイルを作るとして述べます。シートにコマンドボタンを1つ貼りつける。
そのコマンドボタンをダブルクリックして出てくる
コマンドボタンのClickイベントプロシージュアに下記を貼りつける。
デザインモードを脱して、
保存したいシートのセルの範囲を範囲指定して、ボタンをクリック。
Private Sub CommandButton1_Click()
Open "c:\my documents\aabb1.csv" For Output As #1
t = Selection.Row
b = Selection.Rows.Count
For i = t To t + b - 1
a = Cells(i, "A")
c = Cells(i, "C")
e = Cells(i, "E")
Write #1, a, c, e
Next i
Close #1
End Sub
sss",444,"京都"
"ddd",555,"名古屋"
"ddd",666,"浜松"
と言うようなファイルが出来ました。
「シートのセルの範囲を範囲指定させて」保存実感を持たせていますが、それをさせないで、最下行まで保存するなら
(略)
b = Range("a1").CurrentRegion.Rows.Count
For i = 1 To b
(略)
のようにしてください。
No.2
- 回答日時:
下記のどれがご希望ですか。
(1)エクセルの1シートデータの「全部を」1本のテキストファイルに保存。
(2)エクセルの1シートデータの「一部を」、1本のテキストファイルに保存。本日分のみなど。
(3)今あるテキストファイルの中間行または最後行以後に、エクセルの1シートデータを全部または一部を挿入。
前日までのテキストファイルに追加。
(4)メモ帳のようなエディタに既存テキスト文書を開いて、任意の行に挿入。
「値貼りつけ」と言う表現からすると(4)のようにも取れるがどれでしょう。
(1)から(4)にしたがって、プログラムが難しくなりそう。#1のご回答は(1)のようですが。
この回答への補足
回答ありがとうございます。
(2)が希望です。会員データがありその中のA列,C列,E列のデータを貼り付けたいのです。ただ日によって会員数(行)が違います。データが入っている分だけテキストファイルに貼りつけたいのです。
No.1
- 回答日時:
こんにちは
手続き的な部分をかなり端折っていますが・・・
Sub TXT_Create()
Open "Dirve名:Path名\File名" For Output As #1
Do
i = i + 1
日付データ = Sheets("シート名").Range("A" & i)
名前 = Sheets("シート名").Range("C" & i)
電話番号 = Sheets("シート名").Range("E" & i)
If 日付データ = "" Then Exit Do
Print #1, 日付データ, 名前, 電話番号
Loop
Close #1
End Sub
でいかがでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
エクセルファイルのシート毎の容量
-
excelの不要な行の削除ができな...
-
EXCEL 複数行のデータを1行にま...
-
シート削除して同名シート追加...
-
エクセルのデータ振り分け方法...
-
EXCELで2つのファイルから重複...
-
Excelで日付変更ごとに、自動的...
-
エクセル マクロ "特定の日付...
-
複数シートのデータを行列を入...
-
【Excel】マクロでグラフ系列に...
-
Googleスプレッドシートフィル...
-
Excelの改行について
-
excelマクロで複数シート間のデ...
-
エクセルで複数行のデータを1列...
-
他のシートの一番下の行データ...
-
エクセルで1つのシートを拠点...
-
【マクロ】同じフォルダ内にあ...
-
Excelファイルの容量が異常に大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数シートからデータを拾って...
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
VBAで CTRL+HOMEの位置へ移動...
-
【エクセルマクロ】複数シート...
-
トランジスタの選び方
-
EXCEL 複数行のデータを1行にま...
-
EXCELで2つのファイルから重複...
-
別々のシートの表をピボットテ...
-
エクセル VBA VLOOKUP
-
他のシートの一番下の行データ...
-
エクセルのカメラ機能について
-
時間帯の重複を除いた集計について
-
EXCEL の表を一行ずつシートに...
-
ファンモータが作動しない。
-
エクセルで名簿を50音で切り分ける
-
エクセル マクロ "特定の日付...
おすすめ情報