数据导出后，控制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没有合并单元格的，字段类型是不同的，有文本、有数值。

这是我的小号

第一个问题：请确认Excel版本是否2003的。第二个问题，正确的写法是： select * from [sheet1$A2:C1000]，而且第二行必须为表头，区域内不能有合并单元格，且每列字段类型必须一致。

roych

贴附件看看吧。

kent_73

我整理一下吧

todaynew

set wkbook=xlApp.Workbooks.Add
....
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & wkbook.FullName   

todaynew

Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM in " & wkbook.FullName & "![sheet1$!" & sAddress & "] GROUP BY 字段1,字段2 PIVOT 字段1"  

kent_73

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

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

todaynew

kent_73 发表于 2014-11-14 08:24
谢谢回复。这句sql语句提示：运行时错误'-2147217900(80040e14)':FROM子句语法错误。
现传上附件，请帮 ...

Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM [sheet1$!" & sAddress & "] in " & wkbook.FullName & " GROUP BY 字段1,字段2 PIVOT 字段1"
其实有个更简单的办法，是将Excel表的数据区域命名，由于这个命名在表中是唯一的，所以可以直接引用，且与sheet无关。

比如，假设这个区域命名为data，则sql语句可写为：
Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM data$ in " & wkbook.FullName & " GROUP BY 字段1,字段2 PIVOT 字段1"
或者
Sql = "TRANSFORM sum(数量) SELECT 字段1,字段2 FROM [Excel 8.0;DATABASE=" & wkbook.FullName & ".data$  GROUP BY 字段1,字段2 PIVOT 字段1"

kent_73

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

还是有错的。