Microsoft Access Club >VBAのTips解説 >このページ >次頁 < 前項 | ![]() |
|
引数 | 意味 | 指定 |
---|---|---|
pathname | 利用するファイルの絶対パスとファイル名を指定します |
省略可。省略した場合は、新しいオブジェクトインスタンスが作成されます |
class | 利用するオブジェクトのクラスを指定します |
省略可。省略した場合は、オートメーションが、利用するオブジェクトに関連付けられたクラスを自動的に指定します |
値 | 意味 |
---|---|
appname | アプリケーションの名前を指定します |
objecttype | オブジェクトの種類またはクラスを指定します |
クラスとアプリケーション名 | 意味 |
---|---|
Excel.Application | Excel |
Excel.Sheet | Excelシート |
Excel.Chart | Excelグラフ |
Word.Application | Word |
Word.Document | Word文書 |
Access.Application | Access |
PowerPoint.Application | PowerPoint |
Outlook.Application | Outlook |
InternetExplorer.Application | Internetエクスプローラー |
作成済みのExcelシートに「出席簿」テーブルレコードの値を全てを書き出します。
コマンドボタンクリック時イベントプロシージャを以下のように作成します。
Private Sub 実行_Click() On Error GoTo エラー Dim Myxl As Object Set Myxl = GetObject("C:\出席簿.xls", "Excel.Sheet") Dim intNo As Integer Dim CN As New ADODB.Connection Dim RS As New ADODB.Recordset Set CN = CurrentProject.Connection RS.Open "出席簿", CN, adOpenKeyset, adLockOptimistic Myxl.Application.Visible = True Myxl.Parent.Windows(1).Visible = True '--- A Do Until RS.EOF intNo = intNo + 1 Myxl.Application.Cells(intNo, 1).Value = RS!ID Myxl.Application.Cells(intNo, 2).Value = RS!生徒名 Myxl.Application.Cells(intNo, 3).Value = RS!出席日数 RS.MoveNext Loop Myxl.Application.Quit '--- B RS.Close Set RS = Nothing CN.Close Set CN = Nothing Set Myxl = Nothing Exit Sub エラー: MsgBox Err.Number & " : " & Err.Description Exit Sub End Sub
cPanel や PLESKをインストールした専用・共有レンタルサーバー
まずは1ヶ月から...。
日本国内の銀行振込がOK、契約書は不要です。