Sub 單元格內(nèi)容保存為txt文件()
myPath = ThisWorkbook.Path & "\txt\"
'*********************用ADODB.STREAM進(jìn)行寫入U(xiǎn)TF-8文本******************************
For i = 2 To 50
Set OBJSTREAM = CreateObject("ADODB.Stream")
With OBJSTREAM
.Open
.Position = 0
.Charset = "UTF-8"
StrText = Cells(i, "B").Value '單元格內(nèi)容
.writeText StrText '寫入單元格內(nèi)容
.SaveToFile myPath & Cells(i, "A").Value & ".html", 2 '存為html或者txt文件
.Close
End With
Set OBJSTREAM = Nothing
Next
End Sub
VBA 單元格內(nèi)容存為txt文本文件
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門瑞筐，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人腊瑟，你說我怎么就攤上這事聚假。” “怎么了闰非？”我有些...
- 文/不壞的土叔 我叫張陵膘格，是天一觀的道長(zhǎng)。 經(jīng)常有香客問我财松，道長(zhǎng)瘪贱，這世上最難降的妖魔是什么纱控？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮菜秦，結(jié)果婚禮上甜害，老公的妹妹穿的比我還像新娘。我一直安慰自己球昨，他們只是感情好尔店，可當(dāng)我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著褪尝，像睡著了一般闹获。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上河哑，一...
- 文/蒼蘭香墨 我猛地睜開眼棉安，長(zhǎng)吁一口氣：“原來是場(chǎng)噩夢(mèng)啊……” “哼底扳！你這毒婦竟也來了？” 一聲冷哼從身側(cè)響起贡耽，我...
- 序言：老撾萬榮一對(duì)情侶失蹤衷模，失蹤者是張志新（化名）和其女友劉穎，沒想到半個(gè)月后蒲赂，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體阱冶，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年滥嘴，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了木蹬。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
- 正文 年R本政府宣布，位于F島的核電站饺汹，受9級(jí)特大地震影響蛔添，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一迎瞧、第九天 我趴在偏房一處隱蔽的房頂上張望夸溶。 院中可真熱鬧，春花似錦凶硅、人聲如沸缝裁。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽捷绑。三九已至，卻和暖如春氢妈，著一層夾襖步出監(jiān)牢的瞬間粹污，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓加缘，卻偏偏與公主長(zhǎng)得像鸭叙，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子拣宏，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- 最近遇到關(guān)于EXCEL導(dǎo)出需求沈贝，導(dǎo)出時(shí)需要自動(dòng)設(shè)置列寬。去網(wǎng)上查了資料和自己實(shí)驗(yàn)后整理出一種列寬計(jì)算公式勋乾，希望能給...
- 前景提要 上一節(jié)我們學(xué)習(xí)了如何通過VBA來實(shí)現(xiàn)查找功能宋下，也是通過VBA簡(jiǎn)單的了解了Excel查找功能的邏輯 不...
- 前景提要 今天開始我們進(jìn)入第5序列的學(xué)習(xí)，本序列我們將要學(xué)習(xí)的時(shí)候關(guān)于工作薄的相關(guān)知識(shí)和各種操作市俊，相信很多的童鞋都...
- # -&- coding: utf-8 -&- """ Created on Mon Jul 8 22:05:32...
- 問題背景 項(xiàng)目中遇到一個(gè)問題，導(dǎo)入Excel文件時(shí)绅你，單元格內(nèi)容為純數(shù)字的字符串（商品稅收分類編碼）伺帘，如12345，...
