求助 新建sheet及导入数据的问题

小草弓箭手

目的：程序运行后，选择一个目录，将目录下的文件名导入制定位置，创建一以文件名为名字的sheet。
编程如下:运行陷入死循环。。。，无法出结果。
求指教，或干脆推翻。

Sub showallfiles()
Dim fso As New FileSystemObject
Dim fld As Folder
Dim fd As FileDialog
Dim fil As File
Dim i As Integer
Dim wksf As Worksheet
Set wksf = Worksheets.Add
    With wksf
      wksf.Name = "首页"
    End With
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   With fd
     If .Show = False Then Exit Sub
     Set fld = fso.GetFolder(.SelectedItems(1))
   End With
i = 3
For Each fil In fld.Files
wksf.Cells(3, i) = fil.Name
i = i + 1
Next fil
wksf.UsedRange.Columns.AutoFit
Do While wksf.Cells(3, i) = 0
  Worksheets.Add
    With Worksheets
         Name = wksf.Cells(3, i)
          i = i + 1
    End With
Loop
End Sub

下一步是将指定目录中的文件（一般为txt）中的数据导入对应的sheet中。

lmze2000

还是打个包，扔上来个附件，把需求再说一下。

这样方便帮你处理。

小草弓箭手

lmze2000 发表于 2016-5-25 14:18
还是打个包，扔上来个附件，把需求再说一下。

这样方便帮你处理。

自己调好了，等下一步有问题吧，谢谢！