VBプログラマ質問スレ(6.0以前) Part43
■ このスレッドは過去ログ倉庫に格納されています
0522デフォルトの名無しさん
2005/09/20(火) 22:09:40ボタンを押してcsvデータから一行ずつデータを読み込みxlsデータに書き込んでいくプログラムを組んでいるのですが、
xlsデータに書き込む時に任意のセルから書き込むようにしたいのですがわかりません。
下記のサンプルソースではデータをエクセルのA1から順に入れている形です。
これをセルのE5から順に入れていく形にしたいのですが、よろしくお願いします。
****サンプルソース****
Dim xls As Excel.Application
Dim strOneLineData As String
Dim strArrOneData() As String
Dim intFileNumberCSV As Integer
Dim i As Integer
Dim lngLineCnt As Long 'csvファイルの読み込み済み行数の格納
Dim strCEL_No As string 'Excel上に出力するセル位置の格納する
Set xls = New Excel.application 'excelの設定
With xls
.Visible = False 'Excelを非表示にする
'csvファイルのopen
intFileNumberCSV = FreeFile
Open c_strCSVFileName For Input As intFileNumberCSV 'ファイル名を作成します。
.Workbook.Add 'Excelにワークシートを追加する
'csvファイルがEOFになるまで、一行づずつ読み込む
lngLineCnt = 1
Do While Not EOF(intFileNumberCSV) '終端までループを繰り返す
*****下記に続く*****
■ このスレッドは過去ログ倉庫に格納されています