鱼东鱼

摘要： 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... 阅读全文