6行目の2列目から「社員ID」「氏名」「フリガナ」「所属」「メール」のデータをセットします。
■社員データをシートに表示させた画像
■実行コード
メインメニューの「社員マスター」ボタンのクリックイベントで開始します。
'データベースから社員マスターのデータをシートに表示
Private Sub ExSyainToSheet()
Dim rs As Recordset
Dim lrow As Long
'表示エリアのデータをクリア
Sheets("社員マスター").Range("B6:F65536").ClearContents
'自社情報テーブルを開き、テキストボックスに表示する
Set rs = tDbHanbai.OpenRecordset("M_社員マスター", dbOpenDynaset)
lrow = 6
Do While Not rs.EOF
'データを読みセルに表示
Sheets("社員マスター").Cells(lrow, 2) = rs("社員ID")
Sheets("社員マスター").Cells(lrow, 3) = rs("氏名")
Sheets("社員マスター").Cells(lrow, 4) = rs("フリガナ")
Sheets("社員マスター").Cells(lrow, 5) = rs("所属")
Sheets("社員マスター").Cells(lrow, 6) = rs("メール")
'次のレコード
rs.MoveNext
lrow = lrow + 1
Loop
Set rs = Nothing
End Sub
Private Sub CommandButton2_Click()
If ExSheetCheck("社員マスター") = False Then
'見つからなければシートを追加
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'名前の変更
ActiveWorkbook.ActiveSheet.Name = "社員マスター"
'項目名をセット
Sheets("社員マスター").Range("B5") = "社員ID"
Sheets("社員マスター").Range("C5") = "氏名"
Sheets("社員マスター").Range("D5") = "フリガナ"
Sheets("社員マスター").Range("E5") = "所属"
Sheets("社員マスター").Range("F5") = "メール"
'項目のセル幅をセット
Sheets("社員マスター").Range("B5").ColumnWidth = 7
Sheets("社員マスター").Range("C5").ColumnWidth = 16
Sheets("社員マスター").Range("D5").ColumnWidth = 16
Sheets("社員マスター").Range("E5").ColumnWidth = 24
Sheets("社員マスター").Range("F5").ColumnWidth = 24
'項目に下線を引く
Sheets("社員マスター").Range("B5:F5").Borders(xlBottom).Weight = xlThin
End If
'社員マスターのデータをシートへ
ExSyainToSheet
End Sub