[發問] 資料匯入欄位

jackyliu

版大:  幫忙解惑一下

我要將撈取到的資料接續之前的資料 (填入Sheet2) ;假設Sheet2已有300行資料,程式將撈取的資料,填入第301行的 B 欄開始匯入
         1. 第301行的 A 欄填入昨天日期 (準備要匯入的資料有30筆,則 A 欄的日期(昨天)要30行)
         2. 要如何將資料庫的欄位去除,只要撈出的資料

Execl格式如下:  (撈取資料庫資料匯入內容,  (第一筆是資料庫欄位,不要匯入, 只要撈出的資料匯入)A 欄自動填入昨天日期 ,資料庫資料從  B 欄開始)
                A                 B                   C                   D                   E                   F                   G                  H
301      8/1      資料內容     資料內容     資料內容     資料內容     資料內容     資料內容     資料內容
302      8/1      資料內容     資料內容     資料內容     資料內容     資料內容     資料內容     資料內容
303      8/1      資料內容     資料內容     資料內容     資料內容     資料內容     資料內容     資料內容

sql = sql &"SELECT * FROM  ABC "
    pp = Application.WorksheetFunction.CountA(Sheet2.Columns(1), 2)  '我用這判斷 Sheet2 已有資料幾筆, 未來撈取的資料接續後面

   With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=XXX;UID=XXX;PWD=XXX;MODE=SHARE;DBALIAS=edb;", Destination:=Sheet2.Cells(pp))