vb基础知识和文件操作
来源:互联网 发布:高级美工证 编辑:程序博客网 时间:2024/05/08 11:34
一:基本知识
1,变量首字母大写,常量全部大写
2,switch(<表达式1>,条件为1时的值,【……】)
3,动态数组,Dim 数组名() As Integer ReDim [Preserve] 数组名(*to*,*to*) As Integer,Preserve关键字可以保证数组大小改变时,值还存在
4,使用ubound保证不会越界
5,Dim A As Variant(Dim A()) A = Array(10,20,30)
二:文件操作
1,open 文件名 For [output,input,append] As #文件号
2,output或append方式时,使用print #文件号,[输出列表]
3,output或append方式时,使用write #文件号,[输出列表]------这种方式,输出列表间自动用逗号隔开,字符串自动加双引号
4,output或append方式时,输出列表后面要加上分号,否则自动换行
5,output或append方式可以自动实现文件不存在则创建,很方便
6,使用output方式时,文件已经被清空,即使不写内容,当关闭文件的时候也是清空的
7,使用input方式时,Do While Not EOF(1) Line input #文件号,变量名 Loop
8,curdir(),dir(目录或者文件名,当目录时,使用第二参数vbDirectory<>"",vbcrlf,MKDIR
9,name path_name1 as path_name2 移动文件
10,返回当前工作薄的路径ThisWorkbook.Path
三:文件搜索
方法一,该方法可以用于excel2003,excel2007不可用
方法二,该方法可以用于excel2003和excel2007
四:读写指定编码文件
Public Function SaveFile(FileName As Variant, strFileBody As Variant) As Boolean Dim ADO_Stream As Object Set ADO_Stream = CreateObject("ADODB.Stream") With ADO_Stream .Type = 2 .Mode = 3 .Charset = "utf-8" .Open .WriteText strFileBody .SaveToFile FileName, 2 End With SaveFile = True Set ADO_Stream = NothingEnd Function Public Function ReadUTF8(ByVal sUTF8File As String) As String If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function Dim ados As Object Set ados = CreateObject("adodb.stream") With ados .Charset = "utf-8" .Type = 2 .Open .LoadFromFile sUTF8File ReadUTF8 = .ReadText .Close End With Set ados = NothingEnd Function
五:vba中工作表相关
没有表则创建
SheetName = "新工作表" Dim x As Object On Error Resume Next Set x = ActiveWorkbook.Sheets(SheetName) If Err = 0 Then SheetExists = True Else SheetExists = False End If If Not SheetExists Then Sheets.Add ActiveSheet.Name = SheetName End If
- vb基础知识和文件操作
- VB学习1_vb基础知识和文件操作
- 数据和文件操作
- 上传下载和文件操作
- 目录和文件操作
- 预处理和文件操作
- 目录和文件操作
- 异常和文件操作
- python基础知识之类和文件
- 目录操作和文件操作
- VB AES 字符串和文件加密
- php 目录和文件操作
- 递归目录和文件操作
- C#目录和文件操作
- 字符串和文件操作大全
- python文件夹和文件操作
- 内存管理和文件操作
- 【算法】系统和文件操作
- A CFRunLoop object
- ADO访问数据库大全
- 编译 freetype 成 dll
- vb正则表达式
- vivi的Makefile分析
- vb基础知识和文件操作
- 练习Hibernate感悟
- DirectInput使用示例
- 决定个人成败的关键---自我管理能力
- 通过文件方式增加swap空间,不用再重新分区
- linux configure make make install 相关了解
- 设置Ubuntu
- Ubuntu下编译安装GCC-4.1.2
- Struts2源码粗略分析三:请求处理流程分析