- 帖子
- 69
- 主題
- 12
- 精華
- 0
- 積分
- 86
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- office 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-2-14
- 最後登錄
- 2023-3-19
|
版大: 幫忙解惑一下
我要將撈取到的資料接續之前的資料 (填入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)) |
|
發表於 2013-8-2 13:34
| 
