標題:
filesys.createTextFile(如何用write才能寫到B1儲存格)
[打印本頁]
作者:
PKKO
時間:
2013-8-26 17:29
標題:
filesys.createTextFile(如何用write才能寫到B1儲存格)
感謝各位大大已經寫出來可以用LF換行了
但是...要如何寫在B1的位置阿?
我寫完的程式會變成A1:A193都有值
但原本的SHEET1是A1:G7都有值
其他是A8:A193
write要如何寫才能寫在B1阿?
Sub Macro1()
'
'
Set filesys = CreateObject("Scripting.FileSystemObject")
Set a = filesys.createTextFile("C:\Documents and Settings\bobchiou\桌面" & "\ah504_8_2.tpl", True)
rec = 1
OO = ThisWorkbook.Sheets("Sheet1").Range("J3")
Do While I <= OO
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value
rec = rec + 1
I = rec
a.write AB & Chr(10)
Loop
a.Close
'
End Sub
作者:
sunnyso
時間:
2013-8-26 17:42
cells(rec,1) where 1 means column A.
2 - column B
作者:
PKKO
時間:
2013-8-26 17:49
回復
2#
sunnyso
看不太懂耶,要如何寫入我的巨集內阿?
找不到插入的地方= =
Sub Macro1()
'
'
Set filesys = CreateObject("Scripting.FileSystemObject")
Set a = filesys.createTextFile("C:\Documents and Settings\bobchiou\桌面" & "\ah504_8_2.tpl", True)
rec = 1
OO = ThisWorkbook.Sheets("Sheet1").Range("J3")
Do While I <= OO
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value
rec = rec + 1
I = rec
a.write AB & Chr(10)
Loop
a.Close
'
End Sub
作者:
PKKO
時間:
2013-8-26 18:00
回復
2#
sunnyso
我看懂了你寫的東西
那個只代表把我SHEET1的A欄或是A~N欄寫入
但是輸出的檔案還是只會在A欄而已不會輸出到B欄...
作者:
sunnyso
時間:
2013-8-26 18:07
上個附件來看看
作者:
PKKO
時間:
2013-8-26 18:50
我在公司無法上檔
假設我原本開啟的excel檔名為(原始)
我想將原始的EXCEL:A1:G10 & A11:A193全部複製到另外一個檔案(新檔案)
但我發現只能將原始的DATA輸出到新檔案的A欄,
雖然可以將原始的B欄複製,但仍然只能輸出到新檔案的A欄而無法用在B欄
簡單講:新檔案的B欄都是空白的,只有A欄有DATA
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)