|
▼hana さん:
こんばんは。
>>3回読み返しましたが、これは、エクスポートということですよね?
>お手間をかけさせて申し訳ありません。。。
>エクスポートですよね。。。
私が文章読解力に乏しいもので・・・。
>またまた申し訳ないのですが、
>もう少し教えて頂けますか?
>エクスポートのデータを2行目からとしたいのです。。
>どこを変更すれば良いか教えてください。
>よろしくお願いします。
アクティブシートの1行目が項目名ということですね?
プロシジャーmainだけ以下のように変更して下さい。
'=====================================================
Sub main()
Dim sql_str As String
If open_ado(ThisWorkbook.Path & "\ExportBK.xls") = 0 Then
sql_str = "[Sheet1$];"
If open_rs(sql_str) = 0 Then
With ActiveSheet
Set rng = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
If rng.Row > 1 Then
For idx = 1 To rng.Count
If add_rs(rng.Cells(idx).Resize(1, 22)) <> 0 Then
Exit For
End If
Next idx
Else
MsgBox "アクティブシートにデータなし"
End If
rs_close
End If
close_ado
Else
MsgBox "接続失敗"
End If
End Sub
|
|