2012-08-08 69 views
0

標題幾乎說明了一切,我正在尋找一種方法將此查詢導出到Excel中的特定列,以便我不必創建一堆單獨的Excel文件。訪問2010使用VBA導出查詢到特定的Excel範圍

查詢本身使用日期進行計算,我想爲每年的每個月運行一次。因此,在僞代碼是這樣的:

For i = 1 to 13 
    Export Query with to cell i with parameters 
    StartDate = DateSerial(Me.txtYear, i, 1), 
    EndDate = DateSerial(Me.txtYear, i+1, 1) 
    i++ 
Next 

而且現在的鈣被戲稱爲一個月,但我將是真棒,如果我能一些如何得到它的動態變化,並有實際的月份是字段標題。

+0

我應該沒有發現我認爲代表的東西是我想要的待辦事項的代碼:http://www.accessmonster.com/Uwe/Forum.aspx/access-externaldata/489/export-data-特定字段在Excel中是這可能但是我得到錯誤5有關無效輸入參數在下面的行:objXLSheet.Range(s trCellRef).CopyFromRecordset rs – HelloWorld 2012-08-08 18:53:27

+0

Try:http://stackoverflow.com/questions/10184342/code-to-exclude-column-headings-from-transferring-to-excel-2007-from-access-2007/10196850#10196850 – Fionnuala 2012-08-08 19:01:08

+0

您可能想在下面發佈已解決的答案。 – Fionnuala 2012-08-08 20:19:16

回答

2

如果您可以創建查詢來創建您的數據,那麼沿着this的行應該有所幫助。

在我使用丟棄數據到excel的代碼,我用這個來寫標題:

fldCount = rs.Fields.Count 
For iCol = 1 To fldCount 
    xlWs.Cells(1, iCol).value = rs.Fields(iCol - 1).Name 
Next 

然後將此寫入數據到工作表中的A2

xlWs.Cells(2, 1).CopyFromRecordset rs