用窗体实现打开指定目录的文件夹的几种方法

TB肥仔

我想要做的是打开指定目录下的txt文件，并把这些文件导入到一个excel里。
之前初学的时候使用的是论坛里的成品。我想能不能做成可选的那种。求大神帮忙
之前的sub过程是
Sub 批量打开src文件()
Dim s As String
Columns("A:C").Select
    Selection.NumberFormatLocal = "@"
Dim i As Long
Application.ScreenUpdating = False
tim = Timer
s = Dir(ThisWorkbook.Path & "\*.txt")
Do While s <> ""
Open ThisWorkbook.Path & "\" & s For Input As #1
  Do While Not EOF(1)
  i = i + 1
  Input #1, x
  Cells(i, 1) = x
  Cells(i, 3) = s
  Loop
  Close #1
s = Dir()
Loop
MsgBox "文件提取完毕！共用时" & Timer - tim & "秒"
End Sub



可不可以用窗体里的按钮来代替ThisWorkbook.Path。
窗体简单的编了一个，但是语句怎么写一点头绪都没有。
有点描述不清楚，看了附件应该懂。
求思路。或者要去学习什么。
我好想看到过自己输入路径那个的语句，但是怎么都找不到了。
书上给的例子都是把选中的文件名用MsgBox展示出来。然后我也不知道怎么去改

蓝桥玄霜

1. With Application.FileDialog(msoFileDialogFilePicker) '创建一个打开文件的对话框
   
2.     If .Show = -1 Then '如果用户选择了“打开”按钮
   
3.         main2s = .SelectedItems(1)
   
4.         Open main2s For Input As #1
   
5.         '...
   
6.         Close #1
   
7.     End If
   
8. End With
   

复制代码

TB肥仔

蓝桥玄霜 发表于 2019-3-16 11:57

大神是否可以将在文本框那输入路径，然后点击确认选择文件的，那一部分给一点指导。
我的思路是这样的。
文本那个填入
On Error Resume Next
srcaddress2 = TextBox1
确定按钮那个填入
    Columns("A:C").Select
    Selection.NumberFormatLocal = "@"
    Dim main1i As Long
    Application.ScreenUpdating = False
    main1tim = Timer
      If Len(srcaddress2) > 0 Then
      main1s = Dir(srcaddress2 & "\*.txt")
      Do While main1s <> ""
      Open Selection.Files & "\" & main1s For Input As #1
      Do While Not EOF(1)
      main1i = main1i + 1
      Input #1, main1x
      Cells(main1i, 1) = main1x
      Cells(main1i, 3) = main1s
      Loop
      Close #1
      main1s = Dir()
      Loop
就是打开文件的语句，但是实际测试的时候没有反应，不知道哪里不对了。

TB肥仔

蓝桥玄霜 发表于 2019-3-16 11:57

实际测试的时候，文件打开了，但是文件的名字并没有导入，这个还有办法解决吗

蓝桥玄霜

建议用F8逐步执行代码，查看代码中各变量的值。