PKKO

　暱稱: PKKO

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

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-8-22 16:21 | 只看該作者

[發問] 文字換行方式CrLf轉Lf(可用vba轉換嗎?)公司用的

我用excel程式寫了一個自動化的程式
但excel是用Cr+Lf的語言方式換行
導致我公司的測試軟體會讀取錯誤

我用EmEditor開啟之後才發現
原本的程式都是Lf的換行
我寫的程式卻都是Cr+Lf的語言方式換行

我在網路上查到Vba因該可以寫出換行的方法
有大大可以教導一下嗎?

我會基本的vba，因為是公司要用的
若是手動寫程式實在很久，自動化程式快多了，但目前遇到換行的困難，再麻煩各位大大了！

樓主熱帖

PKKO

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2013-8-22 19:34 | 只看該作者

可用Chr(10)替代vbCrLf

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2013-8-23 13:58 | 只看該作者

回復 3# sunnyso
這是我同事說他寫的vba
他用在他的程式內已經可以直接變成Lf的換行方式
可是...我看不懂
有人可以解釋一下嗎?
Sub Macro1()
'
' Macro1 巨集表
'

      Set filesys = CreateObject("Scripting.FileSystemObject")


         Set DebugFile1 = filesys.OpenTextFile(tplpath & "\" & folist & "\" & xxx, 2)

            DebugFile1.write themats(t) & Chr(10)

Set filesys = Nothing
'
End Sub

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2013-8-23 14:22 | 只看該作者

回復 2# oobird

用法該如何使用呢~?

PKKO

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

5^#

發表於 2013-8-25 15:27 | 只看該作者

回復 4# PKKO

& Chr(10) = & LF

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2013-8-26 15:50 | 只看該作者

感謝各位大大已經寫出來可以用LF換行了
但是...要如何寫在B1的位置阿?
我寫完的程式會變成A1:A193都有值
但原本的SHEET1是A1:G7都有值
其他是A8:A193
要如何寫才能寫在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

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2013-8-27 13:16 | 只看該作者

已得知解決方式
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value

CD = ThisWorkbook.Sheets("Sheet1").Cells(rec, 2).Value

a.write AB & Chr(9) & CD & Chr(10)

PKKO

TOP