| |
小僧さん
こんばんわ、何度も質問しまいまして、すみませんでした。
以下のコードを使って、走らせて見ました。思った通りの結果になりましたので、
本当にありがとうございます。
最後の質問になりますが、よろしくお願いします。
質問とは、出力したファイルのFilenameはKwの後ろに「元kw.xls」の登録
日時を入れてほしいです。
イメージ
元kw.xlsの登録日時→20051030 19:33の場合は、
Kw200510301933となってほしい。
Function ExcelExport20Recort()
'要参照 Microsoft DAO x.x Object Library
Dim xlsApp As Object
Dim xlsWkb As Object
Dim xlsSht As Object
Dim xName As String
Dim RS As DAO.Recordset
Dim QName As String
Dim i As Long
Dim j As Long
Dim LastRow As Long
Dim HinaName As String
HinaName = "C:\KW_Hina.xls"
Const lngMaxRow As Long = 20
xName = "C:\KW.xls" ＝＝＝＝＞ここです
QName = "クエリ名"
LastRow = DCount("*", QName)
Set RS = CurrentDb.OpenRecordset(QName, dbOpenSnapshot)
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Open(HinaName)
With xlsWkb.Sheets("Sheet1")
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
.Cells(j * (lngMaxRow + 1) + 1, i + 1).Value = RS(i).Name
Next
.Cells(j * (lngMaxRow + 1) + 2, 1).CopyFromRecordset RS, lngMaxRow
j = j + 1
Loop
End With
RS.Close: Set RS = Nothing
xlsWkb.SaveAs xName
xlsWkb.Close True: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
MsgBox "エクスポート終了"
End Function
|
|
Saiyama
- 05/10/30(日) 19:41 -
