- 博客(6)
- 收藏
- 关注
原创 VBA创建文件夹,根据文件名创建文件夹
Sub test2() Dim Fso As Object, oFile As Object, downloadpathfile$, filepath$, sFolder$, t$ downloadpathfile = [B5].Value & "\" t = [B3].Value Set Fso = CreateObject("Scripting.File...
2020-04-24 21:32:40 2568
原创 VBA根据文件名字自动创建文件夹,创建文件夹,截取文件名,
Sub test() Dim Fso As Object, oFile As Object, allpathfile$, filepath$, sFolder$, t$ allpathfile = [B1].Value & "\" t = [B3].Value Set Fso = CreateObject("Scripting.FileSystemObje...
2020-04-24 21:19:14 1299
原创 vba导入txt文件并且进行数据对比
Private Sub CommandButton1_Click()Set fileDlg = Application.FileDialog(msoFileDialogFolderPicker)With fileDlgIf .Show = -1 ThenSheet10.TextBox1.Text = .SelectedItems(1)’ For Each fld In...
2019-10-25 06:43:23 860
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人