小编raa*_*aam的帖子

我想通过使用VBA控件插入值来访问表是否有任何简单的方法来执行此操作.我尝试这个代码但它不能正常工作如果我运行此代码它给错误'变量未设置'任何人都可以帮助我.提前致谢

Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection
    Dim strSql As String
    Dim lngKt As Long
    Dim dbConnectStr As String
    Dim Catalog As Object
    Dim cnt As ADODB.Connection
    Dim dbPath As String

    Dim myRecordset As New ADODB.Recordset
    Dim SQL As String, SQL2 As String

    dbPath = "table.accdb"
    dbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";"

   SQL = "INSERT INTO Jun_pre (ProductName,DESCRIPTION,SKU,MT,(mt),MRP,Remark,no_of_units_in_a_case) VALUES (""aa"",""bb"",""test"",""testUnit"",""1"",""2"",,""3"",,""4"");"

        With cnt
        .Open dbConnectStr 'some other string was there
        .Execute (SQL)
        .Close
    End With
End Sub

如何使用vba插入整个列的公式

我正在使用VBA从MS Access To Excel填充数据.在Excel工作表的填充期间,它会自动为列设置随机宽度.是否可以使用VBA为所有单元设置相等的宽度？