How to Import data to QuickBooks through CSV using QODBC
Note: QODBC does not support direct import, But you can write VBA code which reads a CSV / Excel file & generates insert statements.
There are two ways to Import data to QuickBooks through CSV using QODBC
1) Using Wizard
Create new MS Access Database file & link Customer table.
Please refer Using QuickBooks Data with Access 2016 / 365 / 2013 32-bit for lining Customer table.
Go to the "External Data" tab on Microsoft Access, as shown in the screenshot below and click on the "Text File".
The "Get External Data", screenshot will be shown below. Select the CSV file by clicking the "Browse" button. (*Note: the file name must be less than 64 characters otherwise Microsoft Access will not be able to import it). Choose second option Append the copy of the records to the table.
Next, make sure the option "Delimited - Characters such as comma or tab separate each field" is selected as shown in the screenshot below and click "Next".
Next, make sure "Comma" is selected in the "Choose the delimiter that separates your fields" and the double quotes symbol " is selected in the "Text Qualifier" as shown in the screenshot below and click "Next" to continue.
Now click on Advanced button for configure import fields.
Now write field name which you want to insert from CSV file & click OK.
Click Finish to complete the import process.
Import Done. Customer data from CSV is inserted to QuickBooks customer table.
Or
2) Using VBA Code
Please refer Using QuickBooks Data with VBA
In this tutorial, we are showing sample VBA script which is inserting Customer & Invoice.
Importing Customer to QuickBooks through CSV file using QODBC & Microsoft Access VBA
We have Customer CSV file which has Customer Name,CompanyName,Phone & Email fields.
We will import this fields to QuickBooks using VBA. You can see below records from Customer CSV file.
Please refer below sample VBA code for Importing Customer to QuickBooks through CSV file using QODBC.
By clicking on "Add Customer" button, Customer list in CSV file will be Imported into QuickBooks using QODBC.
Please Note: You need to change CSV file location & VBA script according to your CSV file location & file data.
Please refer below code which is use in this example:
Import Customer:
Option Compare Database
Public Sub exampleCsvImportCustomer()
Dim oConnection As New ADODB.Connection
Dim sConnectString
Dim MyArray As Variant
Dim fso As Variant
Dim objStream As Variant
Dim objFile As Variant
Dim sSQL As String
Dim sMsg
Dim rs
Dim i As Integer
i = 0
sConnectString = "DSN=Quickbooks Data;OLE DB Services=-2;"
'' For 64-BIT use this one-->sConnectString = "DSN=QuickBooks Data 64-Bit QRemote;"
sSQL = "SELECT * FROM customer"
Set rs = New ADODB.Recordset
oConnection.Open (sConnectString)
rs.Open sSQL, oConnection, adOpenDynamic, adLockOptimistic
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\Input\Customer.csv") Then
Set objStream = fso.OpenTextFile("C:\Input\Customer.csv", 1, False, 0)
End If
Do While Not objStream.AtEndOfStream
strLine = objStream.ReadLine
ReDim MyArray(0)
MyArray = Split(strLine, ",")
rs.AddNew
rs("Name") = MyArray(0)
rs("CompanyName") = MyArray(1)
rs("Phone") = MyArray(2)
rs("Email") = MyArray(3)
rs.Update
i = i + 1
Loop
sMsg = sMsg & "Customer Added!!!"
MsgBox sMsg
End Sub
Please Note: If you have 64-bit application, then you need to use QRemote 64-bit DSN "QuickBooks Data 64-Bit QRemote" (i.e. sConnectString = "DSN=QuickBooks Data 64-Bit QRemote;OLE DB Services=-2;")
Importing Invoice to QuickBooks through CSV file using QODBC & Microsoft Access VBA
We have Invoice CSV file which have CustomerRefListID, RefNumber, InvoiceLineItemRefListID, InvoiceLineDesc, InvoiceLineRate, InvoiceLineQuantity, InvoiceLineSalesTaxCodeRefListID & FQSaveToCache fields.
We will import this fields to QuickBooks using VBA. In this example, we are creating two Invoice each having 3 InvoiceLine. You can see below records from Invoice CSV file.
Please refer below sample VBA code for Importing Invoice to QuickBooks through CSV file using QODBC.
By clicking on "Add Invoice" button, Invoice list in CSV file will be Imported into QuickBooks using QODBC.
Please Note: You need to change CSV file location & VBA script according to your CSV file location & file data.
Please refer below code which is use in this example:
Import Invoice:
Option Compare Database
Public Sub exampleCsvImportInvoice()
Dim oConnection As New ADODB.Connection
Dim sConnectString
Dim MyArray As Variant
Dim fso As Variant
Dim objStream As Variant
Dim objFile As Variant
Dim sSQL As String
Dim rs
Dim sMsg
Dim i As Integer
i = 0
sConnectString = "DSN=Quickbooks Data;OLE DB Services=-2;"
'' For 64-BIT use this one-->sConnectString = "DSN=QuickBooks Data 64-Bit QRemote;"
sSQL = "SELECT * FROM InvoiceLine"
Set rs = New ADODB.Recordset
oConnection.Open (sConnectString)
rs.Open sSQL, oConnection, adOpenDynamic, adLockOptimistic
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\Input\Invoice.csv") Then
Set objStream = fso.OpenTextFile("C:\Input\Invoice.csv", 1, False, 0)
End If
Do While Not objStream.AtEndOfStream
strLine = objStream.ReadLine
ReDim MyArray(0)
MyArray = Split(strLine, ",")
rs.AddNew
rs("CustomerRefListID") = MyArray(0)
rs("RefNumber") = MyArray(1)
rs("InvoiceLineItemRefListID") = MyArray(2)
rs("InvoiceLineDesc") = MyArray(3)
rs("InvoiceLineRate") = MyArray(4)
rs("InvoiceLineQuantity") = MyArray(5)
rs("InvoiceLineSalesTaxCodeRefListID") = MyArray(6)
rs("FQSaveToCache") = MyArray(7)
rs.Update
i = i + 1
Loop
sMsg = sMsg & "Invoice Added!!!"
MsgBox sMsg
End Sub
Please Note: If you have 64-bit application, then you need to use QRemote 64-bit DSN "QuickBooks Data 64-Bit QRemote" (i.e. sConnectString = "DSN=QuickBooks Data 64-Bit QRemote;OLE DB Services=-2;")
Also Refer:
QODBC Reports Architecture Mismatch Problem When connecting