把文本文件轉(zhuǎn)成Excel真的有點(diǎn)麻煩，得一步步來。一般來說，文本文件不能直接變成Excel表格，中間要折騰好幾步才行。操作流程：A. 如果文本里有雙引號，先把它干掉。點(diǎn)編輯→替換，在查找內(nèi)容里輸入雙引號，替換內(nèi)容留空，然后點(diǎn)全部替換。替換完把文件另存為QC_EXL.TXT；B. 打開Excel，點(diǎn)文件→打開你的文本文件，接下來一路下一步。注意在分隔符那里，默認(rèn)是TAB，要改成逗號，下面預(yù)覽就能看到正確格式了；C. 如果有些列需要特殊設(shè)置，比如企業(yè)組織機(jī)構(gòu)代碼這列要設(shè)成文本格式，可以在這一步處理。設(shè)置好了就點(diǎn)完成；D. 轉(zhuǎn)換完還得調(diào)格式，全選表格 → 點(diǎn)格式 → 行 → 最適合行高，再點(diǎn)列 → 最適合列寬，搞定。

如果只做文本處理，用基于腳本的語言比較方便，可以免編譯，比如perl, python, VBS, 如果在網(wǎng)站上就用php，但是這些語言有些不適合做大型程序。
如果不想或不會編程，推薦用軟件Replace Pioneer,它內(nèi)嵌了perl語言，在文本和二進(jìn)制文件處理上足夠靈活和強(qiáng)大。如果英語還過得去，這里有足夠多的文本轉(zhuǎn)換的例子：

都能實(shí)現(xiàn)的，Java、C、VB、C++這些都可以，個人認(rèn)為初學(xué)者VB實(shí)現(xiàn)應(yīng)該最簡單咯。

不知道下面的代碼能不能幫到你，你可以試試看

// Open the text file in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBooks.OpenText(m_strSampleFolder + "Book6.txt", Excel.XlPlatform.xlWindows, 1,
Excel.XlTextParsingType.xlDelimited, Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
false, true, false, false, false, false, m_objOpt, m_objOpt,
m_objOpt, m_objOpt, m_objOpt);

m_objBook = m_objExcel.ActiveWorkbook;

// Save the text file in the typical workbook format and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book6.xls", Excel.XlFileFormat.xlWorkbookNormal,
m_objOpt, m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

直接重命名，改為txt形式，然后把txt里的標(biāo)點(diǎn)給替換為空格，origin能識別，如果有標(biāo)點(diǎn)不能識別。

用記事本編輯一個腳度鋼十聽華市本文件（后綴為SCR），在CAD的菜單：工具》運(yùn)行腳本》選該腳本文件。或者直接用命令script，按提示操作。
腳本文件的格式按命360問答令的輸入順序，注意文件中的空格和換行都表示回車，不要重復(fù)了。具體例子可參考：http://..com/question/48987828.html

你好！

先建一個文本文檔打開，再把CAD打開把里面的東東全部剪切過來，保存。一切OK!

打字不易，采納哦！

可以把excel的東西先導(dǎo)入到datatable中，然后再導(dǎo)成txt格式

下面是導(dǎo)入到datatable的例子

Dim openbox As New OpenFileDialog
openbox.ShowDialog()
Dim filename As String = openbox.FileName
Dim myConn As New System.Data.OleDb.OleDbConnection
Dim strComMain As String = " SELECT * FROM [12$]"
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 4.0;HDR=no"""
myConn.Open()
Catch ex As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 1.0;HDR=no"""
myConn.Open()
Catch ex1 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 8.0;HDR=no"""
myConn.Open()
Catch ex2 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 3.0;HDR=no"""
myConn.Open()
Catch ex3 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 2.1;HDR=no"""
myConn.Open()
Catch ex4 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 5.0;HDR=no"""
myConn.Open()
Catch ex5 As Exception
MsgBox(ex5.Message)
End Try
End Try
End Try
End Try
End Try
End Try
Dim myCommandMain As New System.Data.OleDb.OleDbDataAdapter(strComMain, myConn)
Dim myData = New DataTable
Try
myCommandMain.Fill(myData)
Catch ex As Exception
MsgBox(ex.Message)
Finally
myConn.Close()
End Try