如何把导入Access数据库的Excel表格中的小数点去掉？~
做个查询把access合并了再导出.
1、首先准备好一个要导入Access的Excel文件：
2、打开Access选择外部数据-Excel，弹出短话匡，单机“浏览”按钮，选择准备好的excel文件，如下图：
3、Access会自动读取Excel的页签的名称，这里选择唯一的Sheet，名字叫 plan，如图：
4、单机下一项，选择第一行包含列标题，目的是把第一行的数据变成字段名称：
5、为每一个字段选择相应的数据类型，例如日期类型、数字类型、货币类型还有文本类型等等，如下图：
6、根据需要，确定是否添加主键：
7、为即将导入的表格定义新的名称：
8、导入完成，如图所示：
扩展资料
Access的用途体现在两个方面：
一、用来进行数据分析： access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。
比如在统计分析上万条记录、十几万条记录及以上的数据时速度快且操作方便，这一点是Excel无法与之相比的。 这一点体现在：会用access，提高了工作效率和工作能力。
二、用来开发软件： access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学！非计算机专业的人员，也能学会。
低成本地满足了那些从事企业管理工作的人员的管理需要，通过软件来规范同事、下属的行为，推行其管理思想。（VB、.net、 C语言等开发工具对于非计算机专业人员来说太难了，而access则很容易）。
这一点体现在：实现了管理人员（非计算机专业毕业）开发出软件的“梦想”，从而转型为“懂管理+会编程”的复合型人才。
另外，在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformation Services运行。比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/Microsoft SQL Server。
ACCESS的用途更多，体现在很多方面：
表格模板。 只需键入需要跟踪的内容，Access 便会使用表格模板提供能够完成相关任务的应用程序。
Access 可处理字段、关系和规则的复杂计算，以便您能够集中精力处理项目。 您将拥有一个全新的应用程序，其中包含能够立即启动并运行的自然 UI。
创建和运行旧数据库。 尽情享用对您的现有桌面数据库 (ACCDB/MDB) 的支持。
参考资料：百度百科——Microsoft Office Access
我们常用的导入方法：Public Sub 将数据库记录数据全部导入到excel工作表ADO之一() Dim myData As String, myTable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer '清除工作表的全部数据 ActiveSheet.Cells.Clear myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库 myTable = "期末成绩" '指定数据表 '建立与数据库的连接 Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表 SQL = "select * from " & myTable & " order by 性别" Set rs = New ADODB.Recordset rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic '显示查询结果 MsgBox "数据库中的记录数为：" & rs.RecordCount '复制记录数据 If rs.RecordCount > 0 Then '复制字段名 For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐 With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据 Range("A2").CopyFromRecordset rs '设置工作表格式 ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量 rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing '·recordset对象的copyfromrecordset方法: '用于将一个ADO或DAO的recordset对象的内容复制到工作表中，复制的起始位置在指定区域的左上角。 ' 语法：expression.copyfromrecordset(data,maxrows,maxcolumns) 'expression表示一个工作表的range对象； 'data为必需参数，指定复制到指定区域的recordset对象； 'maxrows(可选):指定复制到工作表的记录个数上限，省略为复制所有记录； 'maxcolumns(可选)：指定复制到工作表的字段个数上限，省略将复制对象的所有字段 'copyfromrecordset方法只是复制记录集的记录数据，并不复制字段名，下列语句用fields集合的count属性获取字段总数，在循环中利用field对象的name属性获取字段名。 'For i = 1 To rs.Fields.Count ' Cells(1, i) = rs.Fields(i - 1).Name 'Next i '复制的记录是从当前行开始的内容，复制完成之后，recordset对象的EOF属性值为True,因此在复制recordset对象内容后，如要重新浏览记录集的话，需使用rs.movefirst将记录指针移到第一条记录。 '·SQL语句: 'sqlect 字段列表 from 子句（表名）where 条件 group by 性别(分组) having avg(工资总额)>5000 (与group by 一起用) order by 姓名 asc(升序)/desc(降序) End Sub ' 引用：microsoft activeX data objects 2.x library Public Sub 将数据库记录数据全部导入到excel工作表ADO之二() Dim myData As String, myTable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据 myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库 myTable = "期末成绩" '指定数据表 '建立与数据库的连接 Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表 SQL = "select * from " & myTable & " order by 数学" Set rs = cnn.Execute(SQL) '复制记录数据 If rs.EOF And rs.BOF Then MsgBox "数据表中没有记录！", vbCritical Else '复制字段名 For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐 With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据 Range("A2").CopyFromRecordset rs '设置工作表格式 ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量 rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub ' 引用：microsoft activex data objects 2.x library Public Sub 将数据库记录数据全部导入到Excel工作表ADO之三() Dim myData As String, myTable As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据 myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库 myTable = "期末成绩" '指定数据表 '建立与数据库的连接 Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表 Set rs = New ADODB.Recordset rs.Open myTable, cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect '显示查询结果 MsgBox "数据库中的记录数为：" & rs.RecordCount ' 复制记录数据 If rs.RecordCount > 0 Then '复制字段名 For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据 Range("A2").CopyFromRecordset rs '设置工作表格式 ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量 rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing '·注 之一1与之三的 区别： '实例3-1中语句rs.open sql,cnn,adopenkeyset,adlockoptimistic和实例3-3中语句rs.open mytable,cnn,adopenkeyset,adlockoptimistic,adcmdtabledirect的区别：前者使用了sql语句来实现对数据表的查询，因此可以实现各种条件下的查询；而后者则使用数据表名来实现对数据表的查询，得到的数据是整个数据表，且无法对记录排序，除此之外两者的代码完全相同。 End Sub ' 引用：microsoft dao 3.6 object library Public Sub 将数据库记录数据全部导入到Excel工作表DAO之一() Dim myData As String, myTable As String, SQL As String Dim myDb As DAO.Database Dim myRs As DAO.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据 myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库 myTable = "期末成绩" '指定数据表 '建立与数据库的连接 Set myDb = OpenDatabase(myData) '查询数据表 SQL = "select * from " & myTable & " order by 数学" Set myRs = myDb.OpenRecordset(SQL) '显示查询结果 MsgBox "数据库中的记录数为：" & myRs.RecordCount '复制记录数据 If myRs.RecordCount > 0 Then '复制字段名 For i = 1 To myRs.Fields.Count Cells(1, i) = myRs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐 With Range(Cells(1, 1), Cells(1, myRs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据 Range("A2").CopyFromRecordset myRs '设置工作表格式 ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量 myRs.Close myDb.Close Set myRs = Nothing Set myDb = Nothing ' ·DAO创建查询记录集要使用DAO.database对象的openrecordset方法? '语法：set recordset=database.openrecordset(source,type,options,lockedits) 'databaseo为新建立的dao.database对象变量； 'source是记录集的数据源，可以是该数据库对象对应数据库的表名，也可以是SQL查询语句； 'type:指定新建的recordset对象的类型； 'options:指定新建的recordset对象的一些特性； 'lockedits: 控制对记录的锁定 '例: Set myRs = myDb.OpenRecordset(SQL) End Sub Public Sub 将数据库记录数据全部导入到Excel工作表DAO之二() Dim myData As String, myTable As String Dim myDb As DAO.Database Dim myRs As DAO.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据 myData = ThisWorkbook.Path & "\职工管理.mdb" '指定数据库 myTable = "职工基本信息" '指定数据表 '建立与数据库的连接 Set myDb = OpenDatabase(myData) '查询数据表 Set myRs = myDb.OpenRecordset(myTable) '显示查询结果 MsgBox "数据库中的记录数为：" & myRs.RecordCount '复制记录数据 If myRs.RecordCount > 0 Then '复制字段名 For i = 1 To myRs.Fields.Count Cells(1, i) = myRs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐 With Range(Cells(1, 1), Cells(1, myRs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据 Range("A2").CopyFromRecordset myRs '设置工作表格式 ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变更 myRs.Close myDb.Close Set myRs = Nothing Set myDb = Nothing '·区别: '之一使用SQL语句，而之二使用数据表来实现查询，其他相同。 End Sub
怎样把EXCEL表导入access数据库
答：1、首先准备好一个要导入Access的Excel文件：2、打开Access选择外部数据-Excel，弹出短话匡，单机“浏览”按钮，选择准备好的excel文件，如下图：3、Access会自动读取Excel的页签的名称，这里选择唯一的Sheet，名字叫 plan，如图：4、单机下一项，选择第一行包含列标题，目的是把第一行的数据变成字段名称...
Excel如何导入ACCESS数据库?怎么在excel中导入ACCESS数据库
答：【答案】： 在Excel中，执行“数据→导入外部数据→导入数据”命令，打开“选取数据源”对话框，定位到需要导入数据的文件所在的文件夹，选中相应的文件，单击“打开”按钮，打开“导入数据”对话框，选择保存数据的第一个单元格，按下“确定”按钮即可。
如何mysql 导入 access数据库
答：如何 mysql 导入 access数据库 1.打开Access程序，新建一个Access数据库。2.创建一个ODBC连接，点击【外部数据】-->【ODBC数据库】--->【通过链接表链接到数据源】。，可以选择“复制表”或“链接表”。链接表的好处是mysql数据源更新，Access链接数据表跟着更新，Access可以作为mysql数据库的界面。3....
如何将excel中的数据导入到已有ACCESS的数据库
答：1.双击Access图标，打开Access这个软件。2.点“空数据库”新建一Access文档。3.先用直接导入法。在菜单栏选择“文件”—“获取外部数据”—“导入”。4.选择一个Excel文件，点“导入”。5.在“导入数据表向导里”选择一个工作表，单击“完成”。6.出现一个提示框，确认一下没错，单击“确定”完成...
如何把EXCEL表导入到access数据库
答：1、首先打开Access数据库，设计一个数据表 2、然后在数据表中插入一些数据，如下图所示，这里简单的插入几条就可以，用来后面的数据演示 3、接下来打开Excel，点击数据菜单，选择自其它来源中的来自Microsoft Query选项 4、接下来选择将数据返回Microsoft Excel选项，接着点击完成按钮 5、接着我们设置一下...
如何将Excel中的数据导入到Access数据库中
答：第一步：在ghost xp系统中启动Access,在向导的提示下建立一个“空数据库”以便用于存放从Excel中导入的数据 第二步：打开要导入数据的数据库，切换到“外部数据”选项卡，选择“Excel”按钮，打开“导入数据”对话框。第三步：在“选择数据源”对话框中，可以根据需要选择数据源，数据源就是我们之前准备...
怎样把EXCEL里的数据复制到ACCESS里?
答：选择空数据库选项。2、弹出文件新建数据库，选择表，点击使用设计器创建表。3、执行文件，获取外部数据，导入命令，选择扩展名为xls，点击导入。4、导入数据向导，根据向导提示点击下一步，执行完成。5、在数据库选择表，点击名称为sheet1的表。6、双击sheet1打开，excel中的数据即可复制到access表里。
如何将文本中的内容 导入access数据库中
答：1、首先文本文件应该是以逗号分隔或制表符分隔的文件才可以导入；2、然后切换到Access；3、在Access中打开新的或已有的数据库；4、单击“数据库”窗口的“表”选项卡；5、指向“文件”菜单中的“获取外部数据”命令，然后单击“导入”;6、单击“文件类型”框中的“文本文件”命令；7、在“文件名”框...
如何把excel表导入到access数据
答：1、打开Access 2007。2、在欢迎界面选择“新建空白数据库”。3、设置新建数据库的名称，并点击“创建”按钮。4、在打开的窗口选择“外部数据”菜单下导入选项卡中的Excel图标。5、在弹出的“获取外部数据”窗口，指定数据源，点击文件名文本框后面的“浏览”按钮。6、在“打开”对话框中找到将要导入的...
如何把Excel中的数据导入Access数据库中
答：请问 如何 将Excel中编辑的电子表格 数据 导入 到Access的 数据 库中？实现这种方式的 数据 导入 ，可以通过以下操作来完成： 1、需要在Excel中调整 数据 的格式和排列形式，由于 导入 数据 的方式是将电子 如何把Excel中的数据导入Access数据库中？请问如何将Excel中编辑的电子表格数据导入到Access的...
