|
本帖最后由 hyzxj900210 于 2012-11-15 16:32 编辑
我在一个文件夹中新建excel表格,并将相同文件夹中某个文本代入进excel,我要进行多次操作,在其它不同的文件夹中进行相同操作,每个文件中文本文档的名称都相同,录制成宏后那个filename该怎么表示才能每次都能使用?
Sub opentext()
Sheet1.Activate
Sheet1.UsedRange.Delete
Dim filename As String
Dim mytext As String
Dim i, j As Integer
Dim myrr() As String
Dim r As Range
filename = ThisWorkbook.Path & "\隧道纵向第13个节点处温度分布.txt"
j = 1
Open filename For Input As #1
Do While Not EOF(1)
Line Input #1, mytext
myrr = Split(mytext, " ")
For i = 0 To UBound(myrr)
Sheet1.Cells(j, i + 1) = myrr(i)
Next
j = j + 1
Loop
Close #1
With Sheet1
a = .Range("a65535").End(xlUp).Row
b = .UsedRange.Columns.Count
Range(Cells(2, 1), Cells(a, b)).SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
c = .UsedRange.Columns.Count
For i = 2 To c
.Cells(1, i) = 60 * (i - 1)
Next
.Cells(1, 1).Value = " "
End With
End Sub
|
|