
《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实际造就,沿路浓缩鄙人面的各个教程中:
相关词条:离心玻璃棉 塑料挤出机 钢绞线厂家 铝皮保温 pvc管道管件胶