返回列表 上一主題 發帖

filesys.createTextFile(如何用write才能寫到B1儲存格)

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
PKKO

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
2#
發表於 2013-8-26 17:42 | 只看該作者
cells(rec,1) where 1 means column A.
2 - column B
ss

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 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

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2013-8-26 18:00 | 只看該作者
回復 2# sunnyso


我看懂了你寫的東西
那個只代表把我SHEET1的A欄或是A~N欄寫入
但是輸出的檔案還是只會在A欄而已不會輸出到B欄...
PKKO

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
5#
發表於 2013-8-26 18:07 | 只看該作者
上個附件來看看
ss

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2013-8-26 18:50 | 只看該作者
我在公司無法上檔

假設我原本開啟的excel檔名為(原始)
我想將原始的EXCEL：A1:G10 & A11:A193全部複製到另外一個檔案(新檔案)
但我發現只能將原始的DATA輸出到新檔案的A欄，
雖然可以將原始的B欄複製，但仍然只能輸出到新檔案的A欄而無法用在B欄

簡單講：新檔案的B欄都是空白的，只有A欄有DATA
PKKO

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題