如何把温度湿度的txt文件内容写入到excel指定的单元格当中

zhangcheng6688

各位大侠，我想使用VBA代码来实现如下的功能，我想把温度湿度TXT文件里面的21.3    46%写入到EXCEL工作表1的D7单元格，25.0    50%写入到EXCEL工作表1的E7单元格,20.8    48%写入到EXCEL工作表1的D32单元格，24.0    46%写入到EXCEL工作表1的E32单元格,20.9    44%写入到EXCEL工作表1的D57单元格,24.0    48%写入到EXCEL工作表1的E57单元格。然后依次将txt文件里面的数据写入到另外其他的EXCEL工作表中指定的单元格中，详细数据附件都有。谢谢大侠的帮忙。

yayahzmeng

看了半天，貌似txt中每3行对应一张sheet
一张sheet代表一天，每天3次记录
要记录三个机房的数值，UPS和蓄电池在一个房间，所以共用每行的第2组数据

是不是这样？

yayahzmeng

1. Sub 导入()
   
2. Application.ScreenUpdating = False
   
3.     Dim file, itxt, wtxt, arr, n%, i%, j%, shname, k%
   
4.     file = ThisWorkbook.Path & "\温度湿度.txt"
   
5.     Open file For Input As #1
   
6.         Do While Not EOF(1)
   
7.             Line Input #1, itxt
   
8.             wtxt = wtxt & itxt & vbTab
   
9.         Loop
   
10.     Close #1
    
11.     arr = Split(Trim(wtxt), vbTab)
    
12.     n = UBound(arr) ': MsgBox n
    
13.     j = 1: k = 1
    
14.     For i = 1 To n - 1
    
15.         If i <> 1 And (i - 1) Mod 6 = 0 Then j = j + 1
    
16.         If j > Sheets.Count Then
    
17.             Worksheets(j - 1).Copy after:=Worksheets(Worksheets.Count)
    
18.             With ActiveSheet
    
19.                 .Name = j: .Range("d7:f7") = "": .Range("d32:f32") = "": .Range("d57:f57") = ""
    
20.             End With
    
21.         End If
    
22.         shname = CStr(j)
    
23.         If i Mod 2 = 1 Then
    
24.             txt1 = arr(i - 1) & vbTab & arr(i) & vbTab & arr(i)
    
25.             If k = 1 Then
    
26.                 Sheets(shname).[d7].Resize(1, 3) = Split(txt1, vbTab): txt1 = ""
    
27.             End If
    
28.             If k = 2 Then
    
29.                 Sheets(shname).[d32].Resize(1, 3) = Split(txt1, vbTab): txt1 = ""
    
30.             End If
    
31.             If k = 3 Then
    
32.                 Sheets(shname).[d57].Resize(1, 3) = Split(txt1, vbTab): txt1 = ""
    
33.             End If
    
34.             k = k + 1: If k > 3 Then k = 1
    
35.         End If
    
36.     Next
    
37. Application.ScreenUpdating = True
    
38. MsgBox "共 " & Int(i / 2) & " 条数据，成功填入 " & Sheets.Count & " 张表"
    
39. End Sub

复制代码

请测试