SQL Server Management Studioを開き、Object Explorerを使用して、データをコピーする元のSchemaAを選択します。
[タスク]メニューから[エクスポートデータ]を選択します。
[エクスポートウィザード]が開きますので、[次へ]をクリックします。
データをコピーするテーブルを選択し、[次へ]をクリックします。
[宛先]ページで、[データベース]オプションを選択し、コピー先のデータベース（ここではSchemaB）を選択します。また
テーブル名を取りたいＶＢＡ
Function GetReferencedTables(sqlText As String) As Variant Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Global = True regex.Pattern = "(FROM|JOIN)\s+(\[?\w+\]?\.)?\[?(\w+)\]?" Dim tables As Object
テーブル操作
バックアップ用のテーブル作成
TableAのデータをTableA_Backupにコピー
CREATE TABLE TableA_Backup ( -- 列の定義を記述);INSERT INTO TableA_BackupSELECT * FROM TableA;
※この方法は、TableA_BackupにTableAの構造を正確に反映しない可能性があることに注意してください。つまり、TableA_Backupに含まれる列のデータ型、サイズ、および NULL 許容性が、
Sub JoinSheets() Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long Dim i As Long, j As Long, k As Long Dim key1 As String, key2 As String ' シートを取得 Set ws1
最後の行を見つけ、その行までセルの値をループで1つずつ取得し、それらを連結する
Sub ConcatenateValues() Dim lastRow As Long Dim i As Long Dim result As String ' 最後の行を取得 lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' セルの値を1つずつ取得して連結 For i = 1 To lastR
