zhangmin_g的个人资料 - RAT

zhangmin_g zhangmin_g

关注数: 17 粉丝数: 14 发帖数: 474 关注贴吧数: 15

有没有记得我的人有没有记得我的人

谁给注释一下vba中每句函数的意思 Public Sub OpenFile(Resource_File As String, Resource_Way As String) Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "请选择文件夹", &H1 + &H10, Resource_File) Set Shell = Nothing Range(Resource_Way).Value = myPath.Items.Item.Path Set myPath = Nothing End Sub Public Sub FindFile(rg As String, f As String, mPath As String, folderway As String, ResourceSize As String, ifcopy As String) ' f 查找的资源名称放的位置 '增加是否需要核对功能 Dim s As String, sDir() As String Private Sub CommandButton1_Click() Dim r As String If Range("_localz").Value <> "" Then Call ThisWorkbook.FindFile("_item", "d", Range("_localz").Value, "i", "e", "f") End If End Sub Private Sub CommandButton2_Click() Dim RServer As String Dim RServer_real As String Dim sErr As String Dim cErr As String NfsServer = Range("_NfsServer").Value Set oadd = Application.COMAddIns("ESClient10.Connect").Object If Range("_to").Value <> "" Then Call oadd.NFS_createRemoteFolder(t, cErr) End If r = Range("_item").Row For I = r To Range("_item").Count + r - 1 from = Range("i" & I).Value t = Range("j" & I).Value If Range("d" & I).Value <> "" Then If Range("f" & I).Value = "是" Then Call oadd.NFS_uploadFile(from, t, sErr) If sErr <> "" Then MsgBox sErr Else Range("h" & I).Value = "上传完毕" End If End If End If Next I End Sub Private Sub CommandButton3_Click() Dim way As String way = Range("_NfsServer").Value + Range("_to").Value Call ThisWorkbook.OpenFile_NFS(way) End Sub Private Sub CommandButton4_Click() Dim RServer As String Dim RServer_real As String Dim sErr As String NfsServer = Range("_NfsServer").Value from = Trim(Range("_localz").Value) '+ "\*.*" t = NfsServer & Range("_to").Value Set oadd = Application.COMAddIns("ESClient10.Connect").Object If Range("_to").Value <> "" Then Call oadd.NFS_createRemoteFolder(t, sErr) End If Call oadd.NFS_uploadFolder(from, t, sErr) If sErr <> "" Then MsgBox sErr Else MsgBox "上传完毕" End If End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rg As String Dim folder As String Dim r As Integer r = Target.Row c = Target.Column If (Target.Row = 5) And Target.Column = 4 Then Call ThisWorkbook.OpenFile("c:\", Target.Address) End If End Sub

excel能根据单元格里行数自动调整高度吗能根据单元格里行数自动调整高度吗

是这样信奉上帝吗一个信奉上帝的人或组织，因为所谓救世主的一句话就这样要求别人。当我打你右脸，你应该转过头来让我在打你左脸，信奉上帝是这样的吗

1 下一页