solosu00的专栏

Public Sub LOAD() Dim filepath As String, files As String, filename As String filepath = CurrentProject.Path & "\文件夹\*.xls" files = Dir(filepath) 'Debug.Print filepath Do Unti

导入TXT，是需要导入规格的，而这个导入规格是怎么来的呢？其实很简单，请看以下图然后就选择高级~！！这个就是导入规格了！然后就这个规格另存为 “XXX”，如“TXT_Upload”好了，这样，我们就是可以在VB上写代码了！Sub upload DoCmd.TransferText acImportDelim