从Access到Excel导出到现有工作表

时间:2013-01-28 12:37:35

标签: vba access-vba

实施例: 我有excel文件test.xls,里面有sheet1,sheet2,sheet3,sheet4,里面有一些信息。 我想将4个查询的结果导出到那些工作表,但我想在最后一行之后添加数据而不是覆盖它。

2 个答案:

答案 0 :(得分:1)

我最近做过类似的事情。在Excel中我使用了VBA。

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer
Dim StartDate As Date, EndDate As Date, ModStartDate As Date, ModEndDate As Date


'Modify the Start date because Maint 24hr cycle is 930 - 930 not 12 - 12
ModStartDate = StartDate - 1


''Access database
strFile = "S:\IT\Databases\Main_BE.mdb"

''This is the Jet 4 connection string, you can get more
''here : http://www.connectionstrings.com/excel
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";"

''Late binding, so no reference is needed
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon


'Get the info from Access
strSQL = "SELECT * FROM Work_Orders " _
    & "WHERE Repair_Start_Date >= #" & ModStartDate & "# " _
    & "AND Repair_Start_Date <= #" & EndDate & "# " _
    & "ORDER BY Repair_Start_Date, Repair_Start_Time"
rs.Open strSQL, cn

'Paste the SQL query at A10 Sheet3
Sheet3.Cells(10, 1).CopyFromRecordset rs

''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

您只需要修改SQL语句,然后添加一个新行,您可以使用变量来计算现有行数:

"=Counta(some range:some range)"

然后只需将1添加到下一行的变量中。

答案 1 :(得分:1)

谢谢大家! 我可以使用以下方法解决它:

    Private Sub Command0_Click()
Dim rstName As Recordset
Set rstName = CurrentDb.OpenRecordset("query1")

Dim objApp As Object, objMyWorkbook As Object, objMySheet As Object, objMyRange As   Object

Set objApp = CreateObject("Excel.Application")
Set objMyWorkbook = objApp.Workbooks.Open("c:/exportarexcell/teste.xls")
Set objMySheet = objMyWorkbook.Worksheets("FolhaTeste")
Set objMyRange = objMySheet.Cells(objApp.ActiveSheet.UsedRange.Rows.Count + 1, 1)

With objMyRange
 rstName.MoveFirst 'Rewind to the first record
 .Clear
 .CopyFromRecordset rstName
End With
End Sub