將Excel數據上傳到DB2

Question

我有以下問題。 有什么方法可以更改以下代碼，以便將excel電子表格數據上傳到DB2數據庫中？ 下面的代碼將數據從DB2下載到excel電子表格。

我想將數據下載到excel，在excel中進行操作，最后上傳到數據庫中

 Sub CreateQueryTableWithParameters() Dim qryTable As QueryTable Dim rngDestination As Range Dim strConnection As String Dim strSQL As String With Sheets("Sheet1") .Activate .Range("A:XFD").Clear End With ' Define the connection string and destination range. strConnection = "ODBC;DSN=RDBWC;UID=;PWD=;DBALIAS=RDBWC;" Set rngDestination = Sheet1.Range("A1") ' Create a parameter query. strSQL = "SELECT *" strSQL = strSQL & " FROM PDB2I.DI_NOS_OST_MVT_01 " ' Create the QueryTable. Set qryTable = Sheet1.QueryTables.Add(strConnection, rngDestination) ' Populate the QueryTable. qryTable.CommandText = strSQL qryTable.CommandType = xlCmdSql qryTable.Refresh False End Sub 

Answer 1

請參閱將Excel電子表格列導入SQL Server數據庫 。 第五個答案顯示了如何執行INSERT語句。 請注意，您必須對要上載（或更新）的Excel工作表中的每一行執行INSERT語句。