数据导出后，控制EXCEL出现了问题

kent_73

将ACCESS中的数据导出到EXCEL后，需要格式化导出的数据，只是在红字处，出现了错误，不知道怎么改了。请帮忙看看，该怎么改动。谢谢！

Sql = "SELECT * from 表"
rs.Open Sql, mydb, adOpenStatic, adLockReadOnly

If rs.EOF = False Then
    Set xlApp = CreateObject("Excel.Application")

    xlApp.Workbooks.Add
    xlApp.Visible = True
With xlApp
    For n1 = 0 To rs.Fields.Count - 1
         Set fld = rs.Fields(n1)
         xlApp.Cells(2, n1 + 1) = fld.Name
    Next
   .Range("a3").CopyFromRecordset rs
   
    Set rng = .Sheets("sheet1").Range("a1").CurrentRegion
    sAddress = rng.Address(0, 0)

    If rs.State = 1 Then rs.Close
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName   '''ThisWorkbook.FullName出现问题了
    Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM [sheet1$ & " & sAddress & "] GROUP BY 字段1,字段2 PIVOT 字段1"  '''sheet1$这里也有错误
    rs.Open (Sql), cnn, adOpenKeyset, adLockReadOnly
end with

kent_73

这是我的小号 发表于 2014-11-13 15:44
第一个问题：请确认Excel版本是否2003的。第二个问题，正确的写法是： select * from [sheet1$A2:C1000]， ...

谢谢回复。
1、office版本是2003的。2、这句sql语句是交叉表，提示不能用"select *"的。excel没有合并单元格的，字段类型是不同的，有文本、有数值。

kent_73

我整理一下吧

kent_73

todaynew 发表于 2014-11-13 19:30
Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM in " & wkbook.FullName & "![sheet1$!" & sAddress  ...

谢谢回复。这句sql语句提示：运行时错误'-2147217900(80040e14)':FROM子句语法错误。
现传上附件，请帮忙改改。

kent_73

todaynew 发表于 2014-11-14 10:09
Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM [sheet1$!" & sAddress & "] in " & wkbook.FullNa ...

还是有错的。