如何使用VBA批量插入从excel到SQL的255列
我必须使用VBA从Excel批量插入到SQL
我已经写了一个函数，但由于string的最大长度不起作用。
谁能帮忙？ 下面是我写的代码：
Dim cn As Object: Set cn = CreateObject("ADODB.Connection") Dim ProjectName, SourceType As String ProjectName = ThisWorkbook.Sheets("Doorset Schedule").Range("B8") SourceType = "Production Schedule" ''You should probably change Activeworkbook.Fullname to the ''name of your workbook strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & ActiveWorkbook.FullName _ & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" cn.Open strCon s = "INSERT INTO [ODBC;Description=TEST;DRIVER=SQL Server;" s1 = "SERVER=Admin-hp;Trusted_Connection=Yes;" s2 = "DATABASE=abcd].DoorSchedule ( [ProjectName],[SourceType]" s3 = ",[A],[B],[C],[D],[E],[F],[G],[H],[I],[J],[K],[L],[M],[N],[O],[P],[Q],[R],[S],[T],[U],[V],[W],[X],[Y],[Z]" s4 = ",[AA],[AB],[AC],[AD],[AE],[AF],[AG],[AH],[AI],[AJ],[AK],[AL],[AM],[AN],[AO],[AP],[AQ],[AR],[AS],[AT],[AU],[AV],[AW],[AX],[AY],[AZ]" s5 = ",[BA],[BB],[BC],[BD],[BE],[BF],[BG],[BH],[BI],[BJ],[BK],[BL],[BM],[BN],[BO],[BP],[BQ],[BR],[BS],[BT],[BU],[BV],[BW],[BX],[BY],[BZ]" s6 = ",[CA],[CB],[CC],[CD],[CE],[CF],[CG],[CH],[CI],[CJ],[CK],[CL],[CM],[CN],[CO],[CP],[CQ],[CR],[CS],[CT],[CU],[CV],[CW],[CX],[CY],[CZ]" s7 = ",[DA],[DB],[DC],[DD],[DE],[DF],[DG],[DH],[DI],[DJ],[DK],[DL],[DM],[DN],[DO],[DP],[DQ],[DR],[DS],[DT],[DU],[DV],[DW],[DX],[DY],[DZ]" s8 = ",[EA],[EB],[EC],[ED],[EE],[EF],[EG],[EH],[EI],[EJ],[EK],[EL],[EM],[EN],[EO],[EP],[EQ],[ER],[ES],[ET],[EU],[EV],[EW],[EX],[EY],[EZ]" s9 = ",[FA],[FB],[FC],[FD],[FE],[FF],[FG],[FH],[FI],[FJ],[FK],[FL],[FM],[FN],[FO],[FP],[FQ],[FR],[FS],[FT],[FU],[FV],[FW],[FX],[FY],[FZ]" s10 = ",[GA],[GB],[GC],[GD],[GE],[GF],[GG],[GH],[GI],[GJ],[GK],[GL],[GM],[GN],[GO]) " s11 = " SELECT '" & ProjectName & "','" & SourceType & "'," s12 = "a.col1 , a.Col2, a.Col3, a.col4, a.col5, a.col6, a.col7, a.col8, a.col9, a.col10, a.col11, a.col12, a.col13, a.col14, a.col15, a.col16, a.col17, a.col18, a.col19, a.col20, a.col21, a.col22, a.col23, a.col24, a.col25, a.col26, a.col27, a.col28, a.col29, a.col30, a.col31, a.col32, a.col33, a.col34, a.col35, a.col36, a.col37, a.col38, a.col39, a.col40, a.col41, a.col42, a.col43, a.col44, a.col45, a.col46, a.col47, a.col48, a.col49, a.col50, a.col51, a.col52, a.col53, a.col54, a.col55, a.col56, a.col57, a.col58, a.col59, a.col60, a.col61, a.col62, a.col63, a.col64, a.col65, a.col66, a.col67, a.col68, a.col69, a.col70, a.col71, a.col72, a.col73, a.col74, a.col75, a.col76, a.col77, a.col78, a.col79, a.col80," s13 = "a.col81,a.col82,a.col83,a.col84,a.col85,a.col86,a.col87,a.col88,a.col89,a.col90,a.col91,a.col92,a.col93,a.col94,a.col95,a.col96,a.col97,a.col98,a.col99,a.col100,a.col101,a.col102,a.col103,a.col104,a.col105,a.col106,a.col107,a.col108,a.col109,a.col110,a.col111,a.col112,a.col113,a.col114,a.col115,a.col116,a.col117,a.col118,a.col119,a.col120,a.col121,a.col122,a.col123,a.col124,a.col125,a.col126,a.col127,a.col128,a.col129,a.col130,a.col131,a.col132,a.col133,a.col134,a.col135,a.col136,a.col137,a.col138,a.col139,a.col140,a.col141,a.col142,a.col143,a.col144,a.col145,a.col146,a.col147,a.col148,a.col149,a.col150,a.col151,a.col152,a.col153," s14 = "a.col154,a.col155,a.col156,a.col157,a.col158,a.col159,a.col160,a.col161,a.col162,a.col163,a.col164,a.col165,a.col166,a.col167,a.col168,a.col169,a.col170,a.col171,a.col172,a.col173,a.col174,a.col175,a.col176,a.col177,a.col178,a.col179,a.col180,a.col181,a.col182,a.col183,a.col184,a.col185,a.col186,a.col187,a.col188,a.col189,a.col190,a.col191,a.col192,a.col193,a.col194,a.col195,a.col196,a.col197" s15 = " FROM [Schedule$] a " s16 = " WHERE a.Col1 Is not Null" s17 = s + s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10 + s11 + s12 + s13 + s14 + s15 + s16 Debug.Print (s + s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10 + s11 + s12 + s13 + s14 + s15 + s16) cn.Execute (s + s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10 + s11 + s12 + s13 + s14 + s15 + s16) 这只是一个快速入侵。 我没有足够的信息来完善代码。 但是，一定要把你指向正确的方向。
您的代码试图连接到Excel电子表格。 正确的方法是连接到您的数据库，并使用conn.execute运行您的查询。
Sub TransferSpreadsheet() Dim destinationTable As String, rangeAddress As String, SqlQuery As String Dim conn Set conn = CreateObject("ADODB.Connection") conn.Provider = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;" conn.Open "C:\Users\tinzina\Datafiles\Spotlights.accdb" destinationTable = "TempTable" rangeAddress = getTableAddress("Sheet1") ExportExceltoAccessTable ThisWorkbook.Name, conn, destinationTable ' SqlQuery is the name of a "Saved Query" in your database 'The "Saved Query" will insert the records from TempTable into whatever table you want SqlQuery = "" conn.Execute SqlQuery End Sub Private Sub ExportExceltoAccessTable(conn, destinationTable, rangeAddress) On Error Resume Next conn.Execute "DROP TABLE " & destinationTable & ";" On Error GoTo 0 SqlQuery = "SELECT * INTO " & destinationTable & " FROM [Excel 8.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "]." & rangeAddress conn.Execute SqlQuery End Sub Public Function getTableAddress(wsSheetName) Dim r As range Set r = Worksheets(wsSheetName).UsedRange getTableAddress = "[" & r.Worksheet.Name & "$" & r.Address(False, False) & "]" End Function
如果您有任何问题，请告诉我