您可以使用VBA代码来导入具有大数字列的Access表。下面是一个代码示例:
Sub ImportLargeNumberColumn() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String
'打开数据库 Set db = CurrentDb()
'创建表 strSQL = "CREATE TABLE myTable (id INT, largeNumberColumn INT)" db.Execute strSQL
'导入数据 strSQL = "INSERT INTO myTable (id, largeNumberColumn) " & _ "SELECT id, CLng(largeNumberColumn) FROM [Excel 12.0 Xml;HDR=YES;IMEX=2;DATABASE=C:\myExcelFile.xlsx].[Sheet1$]" db.Execute strSQL
'打印结果 Set rs = db.OpenRecordset("SELECT * FROM myTable") Do Until rs.EOF Debug.Print rs!id & " | " & rs!largeNumberColumn rs.MoveNext Loop
'关闭数据库 rs.Close Set rs = Nothing Set db = Nothing End Sub
在这个代码示例中,我们首先创建了一个具有两个列的表:id和largeNumberColumn。然后,我们使用INSERT INTO语句从Excel工作簿中导入数据。注意,在SELECT语句中,我们使用了CLng函数来将大数字列转换为长整型。最后,我们打印从表中检索到的结果,以确保成功导入了数据。
请记住,如果您的大数字列超过了长整型的范围,则需要使用其他数据类型,例如Double或Decimal。