《VBA经典应用69例》（版权1178981），是我出的九套教程舟山不锈钢保温工程，教程是门针对初、中学员在学习VBA经由中可能遭受的案例伸开，这套教程案例广漠，紧贴“实战”，并作念“政策转头”，以便大能很好的应用。教程的看法是条目大在本色责任中要行使好VBA。本套教程共三册六十九个题，本日内容：VBA经典应用69例应用1：开文本文献，使用开和文献编号读取其内容

【共享遵守，随喜正能量】39作念个极端肤浅的东说念主，好相处就处，不好相处就不处。不消对每个东说念主好，他们又不给你钱。山果熟，水花香，状态有水池。生存不零落幸福，而是不竭被咱们冷落，颗热的心，发现生存的小确幸，过降生存的日落西山。

应用1 如何行使VBA开文献

开文献是咱们平淡责任的项重基本的操作，铝皮保温开文献的看法般情况下有两种，是阅读、索要数据，二是追加保存数据。这些经由行使VBA齐是不错罢了的。咱们这讲的学习任务便是掌抓如何行使VBA开文献。

4 开文本文献，使用开和文献编号读取其内容

实例3：开文本文献，读取其内容

这个实例中，咱们会看到开个文本文献，然后将其内容输出到确刻下责任表中。底下看代码：

Sub mynzC

'声明变量

Dim int_txtfile As Integer

Dim str_file_Path As String

Dim str_File_Content As String

'赋值

str_file_Path = ThisWorkbook.Path & "\开文献.txt"

' 查找FreeFile函数要使用的下个可用文献号

int_txtfile = FreeFile

'开文献

Open str_file_Path For Input As int_txtfile

'文献的内容存储在变量中

FileLength = LOF(int_txtfile)

str_File_Content = InputB(FileLength, int_txtfile)

'调理编码后放到责任表中舟山不锈钢保温工程

Sheets(1).Cells(1, 1).Value = StrConv(str_File_Content, vbUnicode)

' 关闭文献

Close int_txtfile

End Sub

代码截图：

代码解读： 1）Open str_file_Path For Input As int_txtfile

这句代码的趣味趣味趣味趣味是以Input式开str_file_Path，开文献的编号是int_txtfile。

2）FileLength = LOF(int_txtfile)

这句代码是取得文献的长度。这里要极端宝贵LOF 函数，这个函数复返个Long , 暗示使用Open语句开的文献的大小，极端宝贵，这个大小是以字节为单元的。

3）str_File_Content = InputB(FileLength, int_txtfile)

这句代码是取得所有这个词这个词文献的内容，宝贵这里使用的是InputB(FileLength, int_txtfile)

Input 函数：从以Input或Binary面目开的文献中复返包含字符的String。

语法：Input(number, [#]filenumber)

参数：

① number必需。 指定要复返字符个数的率性有的数值抒发式。

② filenumber 必需。 任何有的文献编号。

对于文本文献内包含的字节数据请使用InputB 函数。使用InputB时，number指定的是要复返的字节个数，而非要复返的字符个数。

由于咱们在代码中FileLength数值是以字节为单元的文献大小，是以在索要所有这个词这个词文献内容时咱们用了InputB函数而非Input函数。

4） Sheets(1).Cells(1, 1).Value = StrConv(str_File_Content, vbUnicode)

以上代码将索要到的文献内容放到责任表中，这里行使了 StrConv函数将非Unicode字符（包括汉字）调理为Unicode字符。对于这个函数，我在此翔实地诠释下。

StrConv 函数：复返按指定调理的变量（字符串）

语法：StrConv(string, conversion, [ LCID ])

参数：

① string 必需。 要调理的字符串抒发式。

② conversion 必需。 Integer。 指定要实施的调理的类型的值的总数。

③ LCID 可选。 LocaleID（若是与系统 LocaleID 不同）。（系统 LocaleID 是默许开拓）

Conversion参数不错有以下的值:

1） vbUpperCase 1 将字符串调理为大写字符。

2） vbLowerCase 2 将字符串调理为小写字符。

3） vbProperCase 3 将字符串中每个单词的个字母调理为大写。

4） vbWide 4 将字符串中的窄 (单字节) 字符调理为宽 (双字节) 字符。

5） vbNarrow 8 将字符串中的宽 (双字节) 字符调理为窄 (单字节) 字符。

6） vbKatakana 16 将字符串中的平化名字符调理为片化名字符。

7） vbHiragana 32 将字符串中的片化名字符调理为平化名字符。

8） vbUnicode 64 使用系统的默许代码页将字符串调理为Unicode。（在 Macintosh 上不成用）。

9） vbFromUnicode 128将字符串从Unicode调理为系统的默许代码页。（在 Macintosh 上不成用）

代码的运转斥逐：

我2多年的VBA实际造就，沿路浓缩鄙人面的各个教程中：