在Excel中的现有表格中插入Excel表格
我相当新的VBA，在这里我的工作从Excel中插入一些数据循环通过每个，并在现有的访问，代码运行良好，但不插入任何数据在表中，我也尝试追加数据使用logging集，但由于数据types问题而工作。 请引导我通过它，非常感谢你提前。 这是我的代码：
Const AccessConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =C:\Documents and Settings\e4umts\Desktop\New Database\IRG Analytics--New.accdb;Persist Security Info=False" Sub Import() Dim dbsIRG As ADODB.Connection Dim ConnectionString As String Dim IRGConn As ADODB.Connection Dim Mypath As String Dim IRGCmd As New ADODB.Command Dim r As Range Dim column As Integer Dim row As Integer Mypath = "C:\Documents and Settings\e4umts\Desktop\New Folder\Liquidation Exceptions Report.xls" Set IRGConn = New ADODB.Connection IRGConn.ConnectionString = AccessConnectionString IRGConn.Open Set IRGCmd = New ADODB.Command IRGCmd.ActiveConnection = IRGConn For Each r In ActiveSheet.Range("A2", Range("A2").End(xlDown)) If ActiveSheet.Range("A2", Range("A2").End(xlDown)) Is Nothing Then IRGCmd.CommandText = _ GetSQL( _ r.Offset(0, 0).Value, _ r.Offset(0, 1).Value, _ r.Offset(0, 2).Value, _ r.Offset(0, 3).Value, _ r.Offset(0, 4).Value, _ r.Offset(0, 5).Value, _ r.Offset(0, 6).Value, _ r.Offset(0, 7).Value, _ r.Offset(0, 8).Value, _ r.Offset(0, 9).Value, _ r.Offset(0, 10).Value, _ r.Offset(0, 11).Value, _ r.Offset(0, 12).Value, _ r.Offset(0, 13).Value, _ r.Offset(0, 14).Value, _ r.Offset(0, 15).Value, _ r.Offset(0, 16).Value, _ r.Offset(0, 17).Value, _ r.Offset(0, 18).Value, _ r.Offset(0, 19).Value, _ r.Offset(0, 20).Value, _ r.Offset(0, 21).Value, _ r.Offset(0, 22).Value) ActiveSheet.Range("A2", Range("A2").End(xlDown)).Value = "" IRGCmd.Execute Else End If Next r IRGConn.Close Set IRGConn = Nothing End Sub Function GetSQL(LoanNumber As Integer, Manager As String, Analyst As String, _ ServicerName As String, ServicerNumber As Integer, ServicerLoanNumber As Integer, _ PoolNumber As Integer, RemmittanceType As String, SaleType As String, ActionCode As Integer, _ ActivityDate As Date, ActionDate As Date, LPI As Date, InterestRate As Double, PandI As Double, _ UPB As Double, ReportedPrincipal As Double, ReportedInterest As Double, AppliedPrincipal As Double, _ AppliedInterest As Double, InvestorPassThruRate As Double, PFPIntAdv As Double, Months As Date) As String Dim strSql As String strSql = _ " INSERT INTO Table1" & _ " (LoanNumber, Manager, Analyst, ServicerName, ServicerNumber, ServicerLoanNumber," & _ " PoolNumber, RemittanceType, SaleType, ActionCode, ActivityDate, ActionDate, LPI, InterestRate," & _ " PandI, UPB, ReportedPrincipal, ReportedInterest, AppliedPrincipal, AppliedInterest, InvestorPassThruRate, PFPIntAdv, Months )" & _ " VALUES (" & _ " Cstr'FannieMaeLoanNumber'),'" & Manager & "','" & Analyst & "','" & ServicerName & "'," & _ " Cstr('ServicerNumber'),Cstr('ServicerLoanNumber'), Cstr('PoolNumber'), '" & RemmittanceType & "'" & _ " '" & SaleType & "', Cstr('ActionCode'), #" & ActivityDate & "#, #" & ActionDate & "#,#" & LPI & "#,Cstr('InterestRate')," & _ " Cstr('PandI'),Cstr('UPB'),Cstr('ReportedPrincipal'),Cstr('ReportedInterest'),Cstr('AppliedPrincipal'),Cstr('AppliedInterest'),Cstr('InvestorPassThruRate')," & _ " Cstr('PFPIntAdv'),#" & Months & "#)" GetSQL = strSql End Function 非常感谢您的答复，我去了你已经发布的代码，我真的没有进行，是我没有看到任何文件的xl文件path，我必须插入每个月的数据到表中，xlfile是保存在特定的文件夹中，给定的静态名称，我做的是首先我通过VBA重写excel上的字段名称，以匹配我的表字段名称在访问，其中我激活xlfile，之后，我想导入。 因为我正在访问它自我我不认为我必须给一个string数据库连接。我真的很困惑这将是非常好的全面，如果你能为我解释更多。 谢谢你Manoj