鱼东鱼

摘要： using System;using System.Collections.Generic;using System.Text;using Excel = Microsoft.Office.Interop.Excel;using Microsoft.Office.Core;using System.IO;namespace CSVTool{ public class ExcelMacroHelper { /// /// 执行Excel中的宏 /// /// Excel文件路径 /// 宏名称 ... 阅读全文

摘要： Public Sub FileToUTF8(FileName As String) Dim fBytes() As Byte, uniString As String, freeNum As Integer Dim ADO_Stream As Object freeNum = FreeFile ReDim fBytes(FileLen(FileName)) Open FileName For Binary Access Read As #freeNum Get #freeNum, , fBytes Close #freeNum ... 阅读全文

摘要： Option ExplicitSub N_Sample034() Dim a As String a = Application.InputBox(Prompt:="请输入一个字符") Select Case True Case a Like "[A-Z]": MsgBox "半角英文大写" Case a Like "[a-z]": MsgBox "半角英文小写" Case a Like "[Ａ-Ｚ]": MsgBox "全角英文大写" Case a Li 阅读全文

摘要： Public Sub 技巧() Dim mydata As String, mytable As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim myField As ADODB.Field Dim FieldType As String, FieldLong As Integer mydata = ThisWorkbook.Path & "\客户管理.mdb" '指定数据库 mytable = "客户信息" '指定数据表 '建立与数据库的连 阅读全文

摘要： Sub F_Sample006() 'Microsoft ActiveX Data Objects 2.X Library 'F_Data.csv Dim myCon As New ADODB.Connection Dim myRst As New ADODB.Recordset Dim myCnc As String Dim myCmd As String Dim myFileName As String Dim i As Long myFileName = "F_Data.csv... 阅读全文

摘要： Sub F_Sample026() Dim myCon As New ADODB.Connection Dim myRst As New ADODB.Recordset Dim myFileName As String Dim myTblName As String Dim myKey As String Dim mySht As Worksheet Dim i As Long Dim j As Long Dim nn& myFileName = "F_Da... 阅读全文

摘要： '需要在工程里面引入 microsoft xml 5.0Private Sub SaveValues()Dim xml_document As New DOMDocumentDim values_node As IXMLDOMNodeDim Version As Variant' Create the XML document.Set xml_document = New DOMDocument'设置版本信息并加入Set Version = xml_document.createProcessingInstruction("xml", "v 阅读全文

摘要： Private Sub CommandButton1_Click() 'shell 方法 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0) If Not objFolder Is Nothing Then MsgBox objFolder.self.path End If Se... 阅读全文

摘要： Public dic As Object '字典对象key：符合条件的excel的路径，value：对应的tag值Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) '读取系统时间API'* 自定义系统时间类型Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute 阅读全文

摘要： Sub Get_SubFolder_Names() '提取文件夾名稱 Dim RtFolder, nlFolder Dim xrow As Long RtFolder = ThisWorkbook.Path & "\" '这里指定你的根目录 xrow = 0 With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder) For Each nlFolder In .subfolders ActiveCell.Offset(xrow) = nlFo... 阅读全文