Sub按钮1_单击()Dimmypat :DimkAsIntegermypath=ThisWorkbook。Path&"\"myfile=Dir(mypath&"*。txt")DoWhileLen(myfile)<>0i=1+iOpenmypath&myfileForInputAs#1stk=Split(StrConv(InputB(LOF(1),#1),vbUnicode),vbCrLf)Close#1WithSheets(Application。
WorksheetFunction。Ceiling(i/256,1))k=IIf(iMod256=0,i,iMod256)。Cells(1,k)=Replace(myfile,"。txt","")。Cells(2,k)。Resize(UBound(stk)+1)=Application。
Transpose(stk)EndWithmyfile=Dir()LoopEndSub在excel2003中,只有256列,。
请采纳我的答案。
Sub InputTxtdata() Dim Fso As Object, Fl, i% Dim Sh As Worksheet Set Sh = ActiveSheet Set Fso = CreateObject("Scripting。
FileSystemObject") For Each Fl In tfolder(ThisWorkbook。Path & "\")。Files If Fl。Name Like "*。txt" Then i = i + 1 Range("A1")(1, i) = Replace(Fl。
Name, "。txt", "") Workbooks。OpenText Fl With ActiveWorkbook 。ActiveSheet。Range("A1", ActiveSheet。
[A1]。End(4))。Copy Sh。Range("A1")(2, i) 。Close False End With End If Next End Sub 。
原因1、按cad分层形成工程的时间。2、及块读取的时间。这点可以在cad中进行清理：文件-绘图实用程序-清理，这样可以清理掉一些无用的信息，如没有用的块定义等。
答：可这么操作： 1、在EXCEL空白表，点选“数据/导入外部数据/导入数据”，在目录中点选已经保存的txt格式文件名，点“打开”按钮； 2、在“导入文本向导”界面...详情>>
