標題: [發問] 將txt檔匯入word表格 [打印本頁]

---

作者: fusahe    時間: 2018-9-19 22:23     標題: 將txt檔匯入word表格

[[attach]29422[/attach]將k1a.txt匯入(k1a表格做為範本),k1b為我要的結果依資料多少生成表格,麻煩老師幫忙

---

作者: fusahe    時間: 2018-9-20 20:37

本帖最後由 fusahe 於 2018-9-20 20:39 編輯

Sub test()
      Dim r%, i%
      Dim arr, brr
      Dim mypath$, myname$
      mypath = ThisDocument.Path &  ""
      myname = "k1a.txt"
      If Dir(mypath & myname) = "" Then
        MsgBox mypath & myname & "不存在！"
        Exit Sub
      End If
      Open mypath & myname For Input As #1
      arr = Split(StrConv(InputB(LOF(2), 1), vbUnicode), vbCrLf)
      Close #1
      ReDim brr(0 To UBound(arr), 0 To 3)
      For i = 0 To UBound(arr)
        ss = Trim(arr(i))
        crr = Split(ss, Chr(9))
        For j = 0 To UBound(crr)
          brr(i, j) = crr(j)
        Next
      Next
      m = 2
      n = 1
      With ThisDocument
        With .Tables(1)
          For i = 0 To UBound(brr)
            For j = 0 To UBound(brr, 2)
              .Cell(m, n + j).Range.Text = brr(i, j)
            Next
            m = m + 2
            If m > .Rows.Count Then
              n = n + 4
              m = 1
            End If
            If n > 5 Then
              Exit Sub
            End If
          Next
        End With
      End With
    End Sub
這個程式碼只能匯入一個表格,第二頁就不行,能否修改成以k1a.doc為範本,複製範本為k1b.doc並將資料匯入由左洏右表格,以資料多少決定多少表格.

---

作者: fusahe    時間: 2018-10-3 21:48

還是無解 找不到高手解決

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)