vb基础知识和文件操作
一:基本知识 二:文件操作 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 = Nothing End 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 = Nothing End 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |