Public Shared Sub GetExcelA1Address(ByRef strA1() As String)
        Dim xlApp As Excel.Application = Nothing

        Try

            xlApp = CreateObject("Excel.Application")

            If IsNothing(xlApp) Then Exit Sub

            xlApp.Workbooks.Add()
            xlApp.WindowState = Excel.XlWindowState.xlMinimized
            xlApp.Visible = False
            xlApp.DisplayAlerts = False
            xlApp.ScreenUpdating = False

            Dim wWorksheet As Excel.Worksheet = _
                CType(xlApp.ActiveWorkbook.ActiveSheet, Excel.Worksheet)

            ReDim strA1(256)

            '最大列数分ループする。
            For i As Integer = 1 To 256
                strA1(i) = Replace(Split(CType(wWorksheet.Columns(i), _
                Excel.Range).Address(False, True, Excel.XlReferenceStyle.xlA1), _
                ":")(0), "$", "")
            Next i

            GC.Collect()

        Catch ex As Exception

        Finally

            If (Not IsNothing(xlApp)) Then xlApp.Quit()
            xlApp = Nothing

            GC.Collect()

        End Try

    End Sub

    Private Sub DataGrid2_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid2.Scroll
        Dim obj As DataGrid = CType(sender, DataGrid)
        CType(Me.DataGrid1.Controls.Item(0), HScrollBar).Value = CType(obj.Controls.Item(0), HScrollBar).Value
    End Sub

Public Class CustomDataGrid
    Inherits DataGrid

    ''' 

    ''' 水平スクロールバーのスクロールイベントを呼び出しNewValueを設定します。
    ''' 

    ''' スクロールバーの新しい値
    Public Sub GridHScroll(ByVal newValue As Integer)
        Dim args As New ScrollEventArgs(ScrollEventType.LargeIncrement, newValue)
        GridHScrolled(Me, args)
    End Sub

End Class

Dim db As Database
Dim rs As Recordset
If (Not rs Is Nothing) Then rs.Close
If (Not db Is Nothing) Then db.Close

    If (Worksheets(シート名).QueryTables.Count <= 0) Then
     With Worksheets(シート名).QueryTables.Add( _
         Connection:="ODBC;DSN=データソース;UID=ユーザ;PWD=パスワード", _
         Destination:=Worksheets(シート名).Range("A1"))
         .Sql = Array("SELECT * FROM " & tableName)
         .Refresh BackgroundQuery:=False
     End With
　  else
     Selection.QueryTable.Sql = Array("SELECT * FROM " & tableName)
     Selection.QueryTable.Refresh BackgroundQuery:=False
    End If

    maxRow = Worksheets(シート名).Range("A65536").End(xlUp).row
    maxCol = Worksheets(シート名).Rows(1).End(xlToRight).Column
    desCol = maxCol + 1
    
    For Each objQuery In Worksheets(シート名).QueryTables
         objQuery.Delete
    Next

    With Worksheets(シート名).QueryTables.Add( _
        Connection:="ODBC;DSN=データソース名;UID=ユーザー;PWD=パスワード", _
        Destination:=Worksheets(シート名).Cells(1, desCol))
        .Sql = "DELETE FROM テーブル名 WHERE 条件)
        .Refresh
        Do While .Refreshing
            DoEvents
        Loop
        .Parent.Names(.Name).Delete
        .Delete
    End With

    Worksheets(シート名).Cells(1, desCol).ClearContents

    For i = 2 To maxRow
        strValue = ""
        For j = 1 To maxCol
            If (strValue <> "") Then strValue = strValue & ", "
            strValue = strValue & "'" & Worksheets(シート名).Cells(i, j).Value & "'"
        Next j
        With Worksheets(シート名).QueryTables.Add( _
            Connection:="ODBC;DSN=データソース名;UID=ユーザー;PWD=パスワード", _
            Destination:=Worksheets(シート名).Cells(1, desCol))
            .Sql = "INSERT INTO テーブル名 VALUES(" & strValue & ")"
            .Refresh
            Do While .Refreshing
                DoEvents
            Loop
            .Parent.Names(.Name).Delete
            .Delete
        End With
        Worksheets(シート名).Cells(1, desCol).ClearContents
    Next i