求大神帮助，

hyzxj900210

我在一个文件夹中新建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

ericfei

你的目的是把各个文件夹下的相同文件的内容都合并到一个excel sheet中？
最好有测试文件和预期的excel示例文件。

hehex

filename = ThisWorkbook.Path & "\隧道纵向第13个节点处温度分布.txt"
按照楼主的意思应该修改的是Thisworkbook.path了，因为是不同文件夹下的隧道纵向第13个节点处温度分布.txt，内容的读取合并。这里有个思路很简单，你设计某列为路径名专门放存有该文件的文件夹路径，然后用循环导入，就能一次解决了。上个例子文件吧，空口白牙没法做。

hyzxj900210

hehex 发表于 2012-11-16 10:31
filename = ThisWorkbook.Path & "\隧道纵向第13个节点处温度分布.txt"
按照楼主的意思应该修改的是Thiswo ...

Sub opentext()
  Sheet1.Activate
  
  Dim filename As String
  Dim mytext As String
  Dim i, j As Integer
  Dim myrr() As String
  Dim sng As String
  Dim r As Range

  For h = 2 To 25
  sng = Sheet1.Cells(h - 1, 1).Value
  filename = "sng" & "\隧道纵向第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)
        Sheets(h).Cells(j, i + 1) = myrr(i)
     Next
     j = j + 1
   Loop
   Close #1
   With Sheets(h)
   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
Next

End Sub
这样是哪里错了啊

hehex

你上个附件吧，我给你看看，空口白牙的不好说。

hyzxj900210

hehex 发表于 2012-11-16 22:33
你上个附件吧，我给你看看，空口白牙的不好说。

就是把三个文件夹的里面的文本文档导入一个excel表格的不同的sheet中，并且画出相应的散点图

hehex

filename = "sng" & "\隧道纵向第13个节点处温度分布.txt"
这句话错了，sng 是String 变量，你这句话把"sng" 这个字符串送进去了。

附件是假设装有数据文件的目录是当前工作簿子录的子目录，如果不是这种情况，请在相应单元格内输入
全路径如 C:\aaa\bbb 等，并删除 Thisworkbook.path。

hyzxj900210

hehex 发表于 2012-11-21 16:17
filename = "sng" & "\隧道纵向第13个节点处温度分布.txt"
这句话错了，sng 是String 变量，你这句话把"s ...

我在一个表格里面把路径都填进去了，再利用循环，分布运行后filename显示的是正确的路径，
可是在open filename for input as #1 这句时却显示路径找不到

hehex

你看看是不是少了"\" 之类的，应该是小问题，调调就差不多了。