ACCESS中用VBA如何导入当前目录内的指定EXCEL

部分中文详文:

在导入数据的时候，有的时候，Access会把一些数据作为数值型的数据，实际上，我们需要作为字符型的数据，那么如何在导入的时候，指定导入的各种规格和细节呢？

答案是利用Schema.ini即可(导入/导出规格文件)。

有几种方式创建Schema，第一种是利用Access自身的文本数据导入导出向导：

在这个对话框中，点击[高级...]按钮，弹出对话框：

然后只要设定好各种格式，然后点击[另存为]保存即可。这种方式创建的Schema，只能集成在数据库中，无法灵活单独使用，因此我们需要用到另外一种方式：INI文件，推荐使用INI文件这种方式。

Schema.ini格式如下（参考：MSDN主题 Schema.ini File）：

Schema.ini用于提供文本数据中的记录规格信息。每个Schema.ini的条目用于指明表的5个特征之一：

文本文件名
文件名有方括号括起来，例如如果要对Sample.txt使用Schema，那么它的对应的Schema条目应该是

[Sample.txt]

文件格式
指令如下：

Format=Value

Value可以取下面的值之一：

TabDelimited 用Tab分隔

CSVDelimited 用逗号分隔

FixedLength 固定长度

Delimited(C) 指定字符，其中C可以为除了双引号(")外的任何字符，也可以为空

字段名、字段宽度和类型
格式为：Coln=字段名 数据类型 [width 宽度]

字段名可以是任意字符，如果字段名包含空格，请使用双引号括起来。

数据类型可以为：

Bit

Byte

Short(Integer)

Long

Currency

Single

Double(Float)

DateTime(Date DateFormat)

Text(Char)

Memo(LongChar)

其中DateFormat是日期的格式字符串例如：Date YYYY-MM-DD

字符集
格式：CharacterSet=ANSI | OEM

格式只有两种：ANSI和OEM

特殊数据类型转换
特殊数据类型转换一般使用的比较少，主要是自定义日期、货币等等的数据格式，一般不用理会。在此也不作详细叙述。请自己查看MSDN帮助：Schema.ini File

　

　

下面给出一个简单的例子，假设有一个表Contacts.txt类似下面：

First NameLast NameHireDate

Nancy Davolio 10-22-91

Robert King 10-23-91

那么Schema.ini个是类似下面的INI文件（我加了注释）：

[Contacts.txt] ///需要导入的文本文件名

ColNameHeader=True ///是否有数据头

Format=FixedLength ///字段固定长度

MaxScanRows=0 ///最多导入行

CharacterSet=OEM ///字符集

Col1="First Name" Char Width 10 ///第一列格式

Col2="Last Name" Char Width 9 ///第二列格式

Col3="HireDate" Date Width 8 ///第三列格式

////依此类推

我们可以根据数据自动创建这个Schema.ini文件！

注意，Schema.ini必须和需要导入的文本文件在同一目录！！！如果不在同一个目录，必须指定Schema.ini的全路径！

此后，我们就可以利用下面的语句来导入数据了：

DoCmd.TransferText acImportFixed, , "Contacts", "C:Documents.txt"

或者

DoCmd.TransferText acImportFixed, "C:Documents.ini", "Contacts", "C:Documents.txt"

下面给出TransferText的语法（摘自Access帮助）：

DoCmd.TransferText [TransferType][, SpecificationName], TableName, FileName[, HasFieldNames][, HtmlTableName][, CodePage]

TransferType 可选 AcTextTransferType。

AcTextTransferType 可以是下列 AcTextTransferType 常量之一：

acExportDelim

acExportFixed

acExportHTML

acExportMerge

acImportDelim 默认

acImportFixed

acImportHTML

acLinkDelim

acLinkFixed

acLinkHTML

如果将该参数留空，则采用默认常量 (acImportDelim)。

SpecificationName 可选 Variant 型。字符串表达式，表示在当前数据库中创建并保存的导入或导出规格的名称。对于固定长度的文本文件, 必须指定参数或使用 schema.ini 文件，该文件还必须保存在导入、链接或导出的文本文件的同一个文件夹中。若要创建一个方案文件, 可使用文本导入/导出向导创建此文件。对于分隔的文本文件和 Microsoft Word 邮件合并数据文件，可以将该参数留空，以便选择默认的导入/导出规格。

TableName 可选 Variant 型。字符串表达式，表示要向其导入文本数据、从中导出文本数据或链接文本数据的 Microsoft Access 表的名称，或者要将其结果导出到文本文件的 Microsoft Access 查询的名称。

FileName 可选 Variant 型。字符串表达式，表示要从中导入、导出到或链接到的文本文件的完整名称（包括路径）。

HasFieldNames 可选 Variant 型。使用 True (-1) 可以在导入、导出或链接时，使用文本文件中的第一行作为字段名。使用 False (0) 可以将文本文件中的第一行看成普通数据。如果将该参数留空，则采用默认值 (False)。该参数将被 Microsoft Word 邮件合并数据文件忽略，这些文件的第一行中必须包含字段名。

HTMLTableNam 可选 Variant 型。字符串表达式，表示要导入或链接的 HTML 文件中的表或列表的名称。除非 transfertype 参数设为 acImportHTML 或 acLinkHTML，否则该参数将被忽略。如果将该参数留空，则导入或链接 HTML 文件中的第一个表或列表。如果 HTML 文件中存在 标记，则 HTML 文件的表或列表名称取决于该标记指定的文本。如果没有 标记，则名称由