2024-01-01から1年間の記事一覧
クロス集計サンプル Private Sub 出力_Click() 'ADOセット定義 Dim rs As New ADODB.Recordset 'エクセルエクスポート定義 Dim objApp As Object Dim objWkb As Object Dim objWsh As Object '書出しCellsの定義 Dim SCol As Integer Dim SRow As Integer '…
Private Sub test2_Click() 'ADOセット定義 Dim rs As New ADODB.Recordset 'エクセルエクスポート定義 Dim objApp As Object Dim objWkb As Object Dim objWsh As Object '書出しCellsの定義 Dim SCol As Integer Dim SRow As Integer '書出しCell位置 SRow…
指定フォルダの全てのファイルを一括でインポートする Private Sub test_Click() '指定フォルダ内のファイル名一覧を配列に格納する方法 'ファイル取得変数 Dim strFile() As String '動的配列宣言 Dim strPath As String 'フォルダのフルパス Dim strType A…
