hiko-blog

VBA業務改善

MENU

Access

Excel形式でファイルを保存/圧縮ファイル作成

Sub ExportToExcelAndCompress() Dim xlApp As Object Dim xlBook As Object Dim rs As Recordset Dim strSQL As String Dim filePath As String ' エクスポートするデータのクエリを指定 strSQL = "SELECT * FROM YourTableName" ' データをレコードセット…

CSV形式でエクスポートし、その後ZIP形式で圧縮

Sub ExportAndCompressData() Dim rs As Recordset Dim db As Database Dim strSQL As String Dim exportPath As String Dim zipPath As String Dim zipFileName As String Dim shellApp As Object ' エクスポートするデータのクエリを指定 strSQL = "SELECT…

データをバッチ処理し、複数の小さなファイルに分割するサンプルコード(1,000単位ごと)

Sub ExportDataInBatches() Dim rs As Recordset Dim db As Database Dim strSQL As String Dim batchCount As Integer Dim batchSize As Integer Dim recordCount As Long Dim i As Integer ' バッチサイズとエクスポートするデータの数を設定 batchSize = …

ExcelExport Access

Private Sub ExcelExport() '変数宣言Dim filePath As String 'Excelエクスポート先のファイルパス ’filePath = "D:\保存先\" & "Export_" & Format(Date, "yymmdd") & ".xlsx" ' Excelファイルを保存するデスクトップのパスを取得 filePath = Environ("USER…

サブクエリ抽出

Option Explicit Sub CreateSQLReview() Dim conn As Object Dim rs As Object Dim strSQL As String Dim strOutput As String Dim i As Integer ' Access データベースへの接続 Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft…

HAVING Count サンプル

'//ordersテーブルから顧客ごとの注文数を計算し、その注文数が3以上の顧客のみを抽出 SELECT customer_id, COUNT(*) AS order_countFROM ordersGROUP BY customer_idHAVING COUNT(*) >= 3; '//各部署の平均給与を計算し、平均給与よりも高い給与を持つ部署…

サブクエリ サンプル

'//サブクエリ サンプル-----------In(SELECT フィールド名1 FROM Q_名称 WHERE( フィールド名2 = 条件1 And フィールド名3 = 条件2 ) OR( フィールド名2 = 条件3 And フィールド名3 = 条件4 ) OR( フィールド名2 = 条件5 And フィールド名3 = 条件6 ) OR( …

Excel→Accessデータ抽出(DAOパラメータ条件ある場合)

Sub Excel→Accessデータ抽出2() Dim AccessApp As Object Dim AccessDb As Object Dim AccessQuery As Object Dim AccessRecordset As Object Dim ExcelApp As Object Dim ExcelSheet As Object Dim AccessPath As String Dim i As Long ' Accessデータベー…

Excel→Accessデータ抽出(ADO利用、パラメータ条件ある場合) 

Sub Excel→Accessデータ抽出() Dim AccessPath As String Dim AccessQuery As String Dim ConnectionString As String Dim Conn As Object Dim RS As Object Dim ExcelApp As Object Dim ExcelSheet As Object Dim i As Long Dim paramValue1 As String Dim …

ExcelからAccessクエリ取り込み

Sub ExtractDataFromAccess() Dim conn As Object ' ADO Connection Dim rs As Object ' ADO Recordset Dim strConn As String Dim strSQL As String Dim i As Integer Dim j As Integer ' Access データベースへの接続文字列を設定(IDとパスワードあり) s…

パスクエリ サンプル

Sub ExecutePassThroughQuery() ’Microsoft ActiveX Data Objects x.x Library Dim conn As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim connectionString As String Dim sqlQuery As String ' SQL Serverへの接続情報 connec…

Excelからアクセスデータ抽出時、パラメータをエクセルセル値から読み取りさせる

Option Explicit Sub ExcelからAccessデータ抽出パラメータ条件付き()'Microsoft ActiveX Data Objects 2.X LibraryとMIcrosoft ADO Ext.x.x for DDL and SecurityをVBEツールから参照設定 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim cmd …

ExcelからAccessデータ取り込み(簡易版)

Option Explicit Sub GetDataFromAccessWithMultipleConditions() Dim conn As Object Dim rs As Object Dim ws As Worksheet Dim strSQL As String ' Accessデータベースへの接続 Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Pr…

ExcelとAccess複合検索

Sub SearchAccessQueryWithMultipleParameters() Dim conn As Object Dim rs As Object Dim strSQL As String Dim strConnection As String Dim accessDBPath As String Dim searchValue1 As Variant Dim searchValue2 As Variant Dim searchValue3 As Varia…

強制終了バッチ フリーズしたときに。。。

Accessの強制終了 @echo offtaskkill /IM msaccess.exe /F Excelの強制終了 @echo offtaskkill /IM excel.exe /F

Excel取り込みデータとAccessテーブル比較結果をブックに保存

Option Explicit Sub CompareAndSaveData() Dim accessApp As Object Dim excelApp As Object Dim excelWorkbook As Object Dim accessTable As Object Dim excelWorksheet As Object Dim currentDate As String Dim newWorkbookPath As String ' Access デ…

Accessへのexport メンテ版

Option ExplicitSub Accessへのexport()Dim msn As WorksheetSet msn = ThisWorkbook.Worksheets("対象")Dim mycon As New ADODB.Connection 'データベース接続オブジェクトDim dbPath As StringdbPath = "Z:\Work\Database2.accdb"mycon.ConnectionString =…

エクセルDataをアクセスDataへ取り込みたい。

エクセルDataをアクセスDataへ取り込みたい。 エクセルDataを簡単にVBA利用して、アクセスで取り込む方法ないのかな。。。 データベース接続を利用すれば、外部取り込みData取り込みでできますよ。 ほんとですか♪いつものように教えてください。 ハイ、では…

Access エクセルからインポート取り込み時のAcSpreadSheetの値メモ。

AcSpreadSheetType Access エクセルからインポート取り込み時、vba設定 AcSpreadSheet値のメモ。 忘れないうちにメモメモ。。。 AcSpreadSheetType 列挙(Access) 名前 値 説明 acSpreadsheetTypeExcel3 0 Microsoft Excel 3.0 形式 acSpreadsheetTypeExcel4 …