請問各位大大
小弟我想把特定儲存格的內容匯出到一個CSV檔案裡
輸出範例: 2015/7/1,6133,6133,6133,6133
這是小弟"拼湊"出來的,可是好像有點問題,請各位達人幫忙修改一下
Sub XlsToCsv()
Dim MYstr As String, i As Integer, d As DataTable
Open "C:\Users\user789\Desktop\OI.csv" For Append As #1
i = Range("N10").Select
d = Data
MYstr = Cells(d, i, i, i, i)
Print #1, MYstr
Next i
Close #1
End Sub
請問可以輸出的資料一直新增到CSV檔案裡嗎(往下新增)?
請問如果要再加一個設定定時執行模組是在下面在加上這個嗎?
Sub autoStart()
Application.OnTime TimeValue("20:00:00"), "Module1.XlsToCsv"
End Sub
問題有點多,小弟新手有太多東西不知道,還請各位大大幫幫忙,感激不盡,謝謝
