ExcelのLeftFooterに書き込むには
VB初心者です。
VBのフォームに入力した後、既存のExcelファイルを立上げ、
データーを指定のセルに書き込むプログラムを作りました。
下記がそのプログラムです。
D文書名という変数に格納されたデーターを
ExcelのLeftFooterに書き込むにはどうしたらいいのでしょうか。
ご存知の方教えてください。
Private Sub 文書作成()
Dim D文書ファイル名, D文書種類, D文書名, D文書管理番号, D作成者, D作成日 As String
D文書ファイル名 = Me.文書ファイル名TextBox.Text
D文書種類 = Me.文書種類ComboBox.Text
D文書名 = Me.文書名TextBox.Text <---***このデーター***
D文書管理番号 = Me.文書管理番号TextBox.Text
D作成者 = Me.作成者ComboBox.Text
D作成日 = Me.作成年月日DateTimePicker.Text
'MsgBox(D文書ファイル名 & D文書種類)
MsgBox("Excelファイルを立上げ" & Chr(13) & Chr(13) & "文書種類/文書名/管理番号/作成者/作成日を書き込みます。")
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
'既存のファイルを開く場合
Dim xlFilePath As String = "\\Ws55\日東電工\標準書類\原紙\原紙0.xls"
Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)
Dim xlSheets As Excel.Sheets = xlBook.Worksheets
Dim xlSheet As Excel.Worksheet = CType(xlSheets.Item(1), Excel.Worksheet)
xlApp.Visible = True
'================== データの入力処理 ==================
'Dim xlRange As Excel.Range
Dim strDat(2, 0) As Object
Dim D文書ファイル名Range, D文書種類Range, D文書名Range As Excel.Range
Dim D文書管理番号Range, D作成者Range, D作成日Range As Excel.Range
D文書ファイル名Range = xlSheet.Range("A1:A1")
D文書種類Range = xlSheet.Range("B2:B2")
D文書名Range = xlSheet.Range("K2:K2")
D文書管理番号Range = xlSheet.Range("F5:F5")
D作成者Range = xlSheet.Range("AE4:AE4")
D作成日Range = xlSheet.Range("S5:S5")
D文書ファイル名Range.Value = D文書ファイル名
D文書種類Range.Value = D文書種類
D文書名Range.Value = D文書名
D文書管理番号Range.Value = D文書管理番号
D作成者Range.Value = D作成者
D作成日Range.Value = D作成日
End Sub
補足
ありがとうございました。 助かりました。