以下是引用lisida888在2009-9-13 15:29的发言：

Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\CAD.txt"
B = "c:\123.xls"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close #1
Open B For Output As #2
Print #2, A
Close #2
 ...