| アクセストップページ VBAでエクセルのワークシートを追加 |
|
VBAでエクセルのワークシートを追加
|
menu |
VBAでエクセルブックを生成し、シートを追加する手順は以下のとおりです。
1 エクセルオブジェクトを生成する。
２ エクセルブックを生成する。
３ エクセルシートを挿入する。
４ エクセルブックを保存し、オブジェクトを終了させる。
エクセルブックを生成してシートを挿入するコードの一例は以下の通りです。
Dim
filename As String
文字列型変数を宣言します。
filename = Forms!F_home2!顧客 & "_"
& Format(CStr(Forms!F_home2!sday), "yymm") &
".xls"
エクセルファイルをフォームの日付をもとに名前をつけます。
If Dir(pas & filename) =
vbNullString Then
IF Dir
(ファイル名）でそのファイルが存在するかを調べることが出来ます。
存在しなければvbNullStringという値を返します。
Dim
objBook0 'ExcelBook
Dim objSheets0 'ExcelSheets
Dim objSheet0
Dim oApp0
As Object
Set oApp0 =
CreateObject("Excel.Application")
oApp0.Workbooks.Add
oApp0.Application.Visible
= False
上記でエクセルオブジェクトを宣言し、生成します。
'filename =
"調理指示書.xls"
'確認ダイアログを表示させない
oApp0.DisplayAlerts = False
Set
objBook0 = oApp0.ActiveWorkbook
Set objSheets0 =
objBook0.Worksheets
objSheets0.Add
count:=5
５つのシートをエクセルブックに挿入します。
Set objSheet0 =
objBook0.Sheets(1)
With objSheet0
.name = "日計表"
End
With
シート１には日計表という名前でシートを挿入します。
以下も同様です。
Set objSheet0 =
objBook0.Sheets(2)
With objSheet0
.name = "食数表"
End With
Set
objSheet0 = objBook0.Sheets(3)
With objSheet0
.name = "業者別金額"
End
With
Set objSheet0 = objBook0.Sheets(4)
With objSheet0
.name =
"業者別材料"
End With
Set objSheet0 = objBook0.Sheets(5)
With
objSheet0
.name = "業者別日計"
End With
objBook0.SaveAs filename:=pas
& filename
エクセルブックを保存します。
'oApp.Workbooks(filename).Close
SaveChanges:=True
objBook0.Close
oApp0.Quit
'オブジェクトの解放
Set
objBook0 = Nothing
Set objSheets0 = Nothing
Set objSheet0 = Nothing
Set
oApp0 = Nothing
エクセルオブジェクトを終了し、開放します。
End If
アクセスを動画で楽に覚える方法はこちら>>
|
|
|
| アクセス入門 |
|
|
| VBA |
・アクセスVBAでパスワード画面
・VBAで時間操作(DateDiff関数,DatePart)
・VBAで時間操作(DateAdd関数,DateValue,TimeValue)
・VBAでエクセルの表をソート(Sortメソッド)
・VBAで時間操作(Time関数,・Hour,Minute,Second,Format)
・VBAで日付操作(Date関数,Year,Month,Day,
・Weekdayname,Format)
・VBAでエラー処理(On Error GoTo)
・VBAでコピー操作(copyメソッド)
・VBAで文字列操作(String関数,InStrRev)
・VBAで文字列操作(Len関数,Mid,Left,Right)
・VBAで文字列操作(UCase関数,LCase,StrConv)
・VBAで文字列操作(LTrim関数,RTrim,Trim,Replace)
・VBAで文字列操作(InStr関数)
・VBAで文字列操作(StrComp関数)
・VBAでFind メソッドを使って検索する方法
・VBA のcellsでエクセルのセルの位置を数字で指定する
・VBAでエクセルのsheetsの操作
・VBAで配列を扱う
・VBAでfileを操作する
・VBA､ADOとSQLでテーブルのデータを削除する
・VBA､ADOでAccessテーブルのレコードにアクセスする
・VBAでエクセルの書式を設定する
・VBAでテーブルやクエリのレコードをエクセルに入力
・VBAでエクセルのワークシートを追加
・アクセスVBAでインポートとエクスポート
|
|
| データベース・SQL |
|
|
| Copyright (C) 2011 All Rights Reserved. |
|
