Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8156 / 9994

←次へ　｜　前へ→


	【5018】Re:既存のExcelファイルにエクスポートす...

にしもり - 05/5/13(金) 12:47 -


	引用なし

	パスワード

▼小僧さん：
何回も似た質問をしてもうしわけございませんでした。
また、多くの方にレスいただき、どうもありがとうございます。
小僧さんのを使わせていただいております。
で、下のプログラムですが、タイトルは１行目に出るのですが、
値が３行目から出てしまいます。
値を２行目から出すためにどう改良すればよいかわかりません。
どうかご教示ください。

>Sub TEST()
>Dim FSO As Object
>Dim xlsApp As New Excel.Application
>Dim xlsWkb As New Excel.Workbook
>Dim MyFile As Variant
>Dim Cnt As Long
>
>'出力ファイルの指定
>　　MyFile = "C:\新しいフォルダ\回数表.xls"
>
>'存在チェック
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>　　　　If Not (FSO.FileExists(MyFile)) Then
>　　　　　　DoCmd.TransferSpreadsheet acExport, _
>　　　　　　acSpreadsheetTypeExcel9, "aa", MyFile, True
>　　　　Else
>
>'出力先ファイルにシートを追加
>　　　　　　Set xlsWkb = xlsApp.Workbooks.Open(MyFile)
>　　　　　　Cnt = xlsWkb.Sheets.Count
>　　　　　　xlsWkb.Sheets.Add after:=xlsApp.Worksheets(Cnt)
>　　　　　　xlsWkb.ActiveSheet.Name = "aa" & Cnt
>　　　　　　xlsWkb.Save
>　　　　　　xlsWkb.Close: Set xlsWkb = Nothing
>　　　　　　xlsApp.Quit: Set xlsApp = Nothing
>　　　　
>　　　　DoCmd.TransferSpreadsheet acExport, _
>　　　　acSpreadsheetTypeExcel9, "aa", MyFile, True, "aa" & Cnt & "!"
>　　　　End If
>End Sub

2,083 hits

▼

【4842】既存のExcelファイルにエクスポートするには にしもり 05/4/7(木) 16:34