| |
お世話になります。
以下のVBAを実行すると、エラーがでてしまいます。
其の原因はテーブルABCのデータソース（クエリ）にはﾊﾟﾗﾒｰﾀが仕込んでいるからだと推測ですが・・・。
パラメータを外すことはできなくて、解決策はあるのでしょうか？
ご伝授ください。
Function text_Export01()
Const csXlPath As String = "C:\year\ABC.xls"
Dim i As Long
Dim xlsApp As Object
Dim xlsWkb As Object
Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("ABC", dbOpenSnapshot)・・・黄色反転
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Open(csXlPath)
'xlsApp.Visible = True
With xlsWkb.Sheets("cho_year")
.Range("A1:H65560").ClearContents
For i = 1 To RS.Fields.Count
.Cells(1, i).Value = RS(i - 1).Name
Next
.Range("A2").CopyFromRecordset RS
End With
xlsWkb.Close True: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
/
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
