大家好！导入数据源和保存数据源有问题，请帮忙，十分感谢！！！

weifengcz

感谢老师！祝您工作顺利，万事如意！

gwjkkkkk

weifengcz 发表于 2024-5-5 13:38
感谢老师！祝您工作顺利，万事如意！

相互学习。。。

weifengcz

gwjkkkkk 发表于 2024-5-5 15:52
相互学习。。。

给你太麻烦的，有一个思路方法，文件10，我自己选择文件1，文件2，文件3导入数据源Sheet1，Sheet2，Sheet3。能否写代码出来？

weifengcz

gwjkkkkk 发表于 2024-5-5 15:52
相互学习。。。

2024=5=5修改888.rar (23.03 KB, 下载次数: 1)

2024-5-5 16:38 上传

点击文件名下载附件

请老师看看能否写代码？十分感谢！

gwjkkkkk

weifengcz 发表于 2024-5-5 16:38
请老师看看能否写代码？十分感谢！

请参考。。。

weifengcz

gwjkkkkk 发表于 2024-5-5 18:52
请参考。。。

  我最多文件10，怎么改？

gwjkkkkk

weifengcz 发表于 2024-5-5 19:28
我最多文件10，怎么改？

如果选择10个文件，是不是生成10个工作表，如果3个就生成3个，2个就2个，我是按共三个工作表写的，少于3按实际导入，多3个，第4开始忽略。。。

weifengcz

gwjkkkkk 发表于 2024-5-5 19:31
如果选择10个文件，是不是生成10个工作表，如果3个就生成3个，2个就2个，我是按共三个工作表写的，少于3 ...

Option Explicit
Sub test()
    Dim strResult$(), ar, i&, j&, r&, n As Byte, iFileCount&
    Dim Items As FileDialogSelectedItems, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "文本文件(txt)", "*.txt"
        End With
        .AllowMultiSelect = True
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
   
   
    iFileCount = IIf(Items.Count > 3, 3, Items.Count)
    For i = 1 To iFileCount
        n = FreeFile
        Open Items(i) For Input As #n
            ar = Split(StrConv(InputB(LOF(n), #n), vbUnicode), vbCrLf)
        Close #n
        ReDim strResult(1 To UBound(ar) + 1, 0)
        For j = 0 To UBound(ar)
            strResult(j + 1, 0) = ar(j)
        Next j
        With Worksheets(i)
            .Columns("A").Clear
            .[A1].Resize(UBound(strResult)) = strResult
        End With
    Next i
   
    Set Items = Nothing
    Beep
End Sub
请帮改，谢谢老师！最大文件20

weifengcz

gwjkkkkk 发表于 2024-5-5 19:31
如果选择10个文件，是不是生成10个工作表，如果3个就生成3个，2个就2个，我是按共三个工作表写的，少于3 ...

求大神怎么改文件20？？？给我下载，谢谢老师

gwjkkkkk

请参考，你选几个文件就生成包括几个工作表的工作簿。。。