読者です 読者をやめる 読者になる 読者になる

VBA_セルへの書き込み

VBA プログラム

CSVファイルのデータをエクセルに貼り付けるには、の続き

1.CSVファイル・エクセルファイルを開く
2.CSVファイルのデータを1行ずつ読み込む
3.読み込んだデータをエクセルファイルに書き込む

 

3.のコード↓ ( -ex-セルA2に値100を書き込む )

Workbooks("ファイル名.xls").Worksheets("シート名").Cells(2, 1) = 100

 

「あああ,いいい,うううう」 が記載されたCSVファイルを、
エクセルファイルのセルA1・A2・A3に書き込むコードは以下の様になる。
※ファイルオープンとクローズのコードは略。

Input #1, a, b, c

  Workbooks("ファイル名.xls").Worksheets("Sheet1").Cells(1, 1) = a
  Workbooks("ファイル名.xls").Worksheets("Sheet1").Cells(2, 1) = b
  Workbooks("ファイル名.xls").Worksheets("Sheet1").Cells(3, 1) = c

A1には「あああ」
A2には「いいい」
A3には「うううう」
が書き込まれる。

 

コード説明
Cells(row, column)

Cells(, )

列のA, B, C, …は数値で1, 2, 3,…と表す。

A7 → Cells(7, 1)
B4 → Cells(4, 2)
C1 → Cells(1, 3)

 

koshinran.hateblo.jp