作者 主題: vb 換行 加上 tab  (閱讀 6425 次)

0 會員 與 1 訪客 正在閱讀本文。

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
vb 換行 加上 tab
« 於: 2006-09-04 17:12 »
Private Sub CommandButton1_Click()
    Dim FIMTX(1000000, 7) As String
    Dim FITE(1000000, 7) As String
    Dim FITF(1000000, 7) As String
    Dim FITX(1000000, 7) As String
    Dim TEMSTRING As String
    Dim outputline As String
    indexname = Val(TextBox1.Text)
    Open "D:\database\Val(TestBox1.text).txt" For Output As #1    ' 開啟輸出檔案
        For i = 1 To 302
        'For i = 10 To 16
        outputline = ""
            For j = 10 To 16
            'For j = 1 To 302
           
         
                TEMSTRING = TEMSTRING & vbTab & Worksheets("Dailydata").Cells(i, j).Value
               
               
               
           
            Next j
           
              TEMSTRING = TEMSTRING & vbCrLf

        Next i
       
        Print #1, TEMSTRING
    Close #1
    MsgBox "存檔完成﹗"
End Sub

Private Sub CommandButton2_Click()
    End
End Sub

Private Sub UserForm_Click()

End Sub