Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72058 / 76733 ←次へ | 前へ→

【9162】Re:エクセルにインポート(エクスポート?)する
回答  ichinose  - 03/11/19(水) 19:13 -

引用なし
パスワード
   ▼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

2 hits

【9098】エクセルにインポート(エクスポート?)する hana 03/11/18(火) 15:52 質問
【9123】Re:エクセルにインポート(エクスポート?)... ichinose 03/11/19(水) 2:46 回答
【9135】Re:エクセルにインポート(エクスポート?)... hana 03/11/19(水) 11:58 質問
【9162】Re:エクセルにインポート(エクスポート?)... ichinose 03/11/19(水) 19:13 回答
【9202】Re:エクセルにインポート(エクスポート?)... hana 03/11/21(金) 9:48 お礼

72058 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free