找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能搞笑、娛樂、精彩的影片讓你看安全提問(回答) 和 永久尊貴會員 事宜
mega無碼流出中出中文rpg鬼滅之刃
她戰死後inari破鏡重圓藥屋少女魔女は結出租孕み村

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]因為不是真正的夥

[繁/無修正]夢想成為

[繁]迷宮飯09-

[繁/無修正]魔都精兵

[繁]藥師少女的獨語21

[超清中字]灌籃高手
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5000|回復: 0

[求助] 想請問大大們 excel轉txt的vb語法[複製鏈接]

Rank: 1

帖子
118
積分
190 點
潛水值
18611 米
發表於 2020-6-20 02:01 PM|顯示全部樓層
您好 感謝 大大們抽空看 謝謝
使用下列程式碼 可以將excel轉成txt但是轉換出來換變成
a b c d  <-----文字之間有空白最後1行有換行鍵

想修改成abcd  <----這樣 然後最後行沒有換行鍵 該如何進行修改呢
還是要從文書軟體去排版沒辦法這樣改  謝謝大大
  1. Sub SaveSheetToFiles()
  2.     Dim ws As Worksheet
  3.     For Each ws In ActiveWorkbook.Worksheets
  4.         Worksheets(ws.Name).Activate
  5.         ActiveWorkbook.SaveAs Filename:= _
  6.         ActiveWorkbook.Path & ws.Name & ".txt", FileFormat:=xlText, _
  7.         CreateBackup:=False
  8.     Next
  9. End Sub
複製代碼



...
瀏覽完整內容,請先 註冊登入會員
好開心唷^^
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部