1. 程式人生 > >VBA 向檔案寫入編碼為UTF-8的資料

VBA 向檔案寫入編碼為UTF-8的資料

Sub Test()
        
 '需要引入  ActiveX Data Objects(ADO)元件
 '       即 Microsoft ActiveX Data Objects 2.5 Library 或者 Microsoft ActiveX Data Objects 2.6 Library
       
    Dim fileSaveName As String
        
    '建立檔案並返回檔案路徑和名字
    fileSaveName = Application.GetSaveAsFilename(fileName, fileFilter:="資訊檔案(*.txt), *.txt")
   '建立寫入資料的流
        Set outStream = CreateObject("ADODB.Stream")
            outStream.Open
            outStream.Charset = "utf-8"
            outStream.Type = adTypeText
        Set binStream = CreateObject("ADODB.Stream")
            binStream.Open
            binStream.Type = adTypeBinary
' 開始寫入資料            
        outStream.WriteText ("************************************" & vbCrLf)                       
        outStream.WriteText ( Sheet1.Cells(5, 3) & vbCrLf)   ' & vbCrLf 為換行符
        outStream.WriteText ( Sheet1.Cells(5, 2) & vbCrLf)               
     
' ##  outStream.SaveToFile fileSaveName, 2    '如果直接儲存檔案寫入的內容編碼為“UTF-8+”而不是“UTF-8”

     outStream.Position = 3
     outStream.CopyTo binStream
     binStream.SaveToFile fileSaveName, 2     '需要將內容偏移兩位去掉“UTF-8+”的bom,fileSaveName為寫入資料的檔案路徑和名字
     binStream.Close
     outStream.Close
  
End Sub

相關推薦

VBA 檔案寫入編碼UTF-8資料

Sub Test()           '需要引入  ActiveX Data Objects(ADO)元件  '       即 Microsoft ActiveX Data Objects 2.5 Library 或者 Microsoft ActiveX Data O

Eclipse 修改所有檔案預設編碼UTF-8

摘要 在實際運用中,我們通常需要使用UTF-8的編碼,但是每次新建一個工程都要改編碼,是不是特別麻煩呢。 而且一旦忘記了,改過之後中文亂碼… 1、修改 workspace text file encoding 依次點選windows -> Preferences

VBA 檔案寫入簡單資料(預設編碼ANSI或者Unicode)

Sub Test()      Dim fileSaveName      Dim i As Integer      Dim fso, outStream     '建立檔案,並返回路徑      fileSaveName = Application.GetSaveAsF

Visual Studio 2017 修改 檔案 編碼 UTF-8

VS 2017隱藏了高階儲存功能,導致沒辦法直接去設定程式碼編碼 UTF-8 那麼我們直接把高階儲存功能調用出來即可: 單擊“工具”|“自定義”命令,彈出“自定義”對話方塊。 單擊“命令”標籤,進入“命令”選項卡。 在“選單欄”下拉列表中,選擇“檔案”選項。 單擊“新增命令”按鈕,

編碼UTF-8的XML檔案轉為字元流輸出

package com.wxd.test; import java.io.BufferedReader; import java.io.File; import java.io.FileInputS

mfc中如何讀取,儲存編碼utf-8檔案

主要用到兩個Api:MultiByteToWideCharhttp://msdn.microsoft.com/en-us/library/ms776413.aspxWideCharToMultiBytehttp://msdn.microsoft.com/en-us/libra

利用nodepad++中的python script外掛批量轉換檔案編碼utf-8

兩個部落格寫的都很好。 但是沒有講到最重要的怎麼執行這個python指令碼 這裡直接使用了上述文章的文字描述 選擇Plugins->Plugin Manager->Show Plugin Manager 安裝 Python Script。

linux批量轉換整個目錄下的檔案編碼UTF-8

#!/bin/bash - #=============================================================================== # # FILE: conv.sh # # U

普通dos編碼檔案批量轉換UTF-8格式檔案

    今天發現巨好用工具EditPlus,批量轉換檔案編碼格式     文件(Document)選單——檔案編碼(File encoding)——批量轉換編碼(File encoding multiple),選中全部檔案後轉碼,然後再全部儲存     最近將wind

html 引用檔案編碼utf-8 的 js檔案亂碼問題

html 已經宣告 <meta http-equiv="Content-type" content="text/html; charset=utf-8"> 引用檔案編碼為utf-8 的 js檔案(用editplus開啟,此檔案顯示為utf-8

修改PC記事本新建文本默認編碼UTF-8

word ... position new utf8 ros utf bsp 新建 1. 打開目錄(沒有則自己新建) C:\WINDOWS\SHELLNEW 2. 在該目錄下創建一個文本文檔(txt): 右鍵 -> 新建 -> 文本文檔 3. 命名為: U

如何實現Eclipse默認編碼UTF-8

unicode tex window utf-8 選擇 nic iso odin src 1 Window->Preferences->General->Workspace,右邊Text file encoding選擇Other->UTF-8 2

設置MYSQL數據庫編碼UTF-8

service variable /etc/ ike 註意 safe cli 標簽 reat 1、 編輯MySql的配置文件 MySql的配置文件Windows下一般在系統目錄下或者在MySql的安裝目錄下名字叫my.ini,可以搜索,Linux下一般是/etc/my.

配置Tomcat的server.xml編碼UTF-8時,再次發布項目,編碼自動還原問題?

image launch ref eclipse 重新 再次 oca eclips 技術 當我們在處理中文亂碼或是配置數據源時,我們要修改Tomcat下的server.xml 但是當我們修改完後重啟Tomcat服務器時發現xml文件又被還原了,修改無效果。 為什麽會還原

Jenkins maven 構建亂碼,修改file.encoding系統變量編碼UTF-8

out selenium 可能 odi 沒有 linu 分享 log image 一切都是windows的控制臺默認編碼GBK問題 情景: 使用jenkins構建,console 輸出的中文亂碼。代碼編碼格式是utf-8,因為Jenkins會默認讀取當前系統的編碼格式,導致

eclipse怎麽設置在新建JSP文件的編碼UTF-8

完成 unicode 怎麽 inf 新建 文件 Coding b- ren eclipse中默認的編碼格式為字符編碼是ISO-8859-1,每次新建jsp頁面都需要手動改寫,特別麻煩,怎麽設置在新建JSP文件的編碼為UTF-8? Preference-->找到We

模糊查詢sql語句條件是中文在後臺從數據庫查不到結果,是英文和字母就可以,而且統一編碼UTF-8了!!!

mic bubuko bsp mysq dos variables src strong like 4.在mysql安裝目錄下打開my.ini文件 5.保存,接著打開電腦的服務選項,將MySQL 重啟 6. 重啟後重新進入dos 窗口的MySQL ,輸入show v

設定MYSQL資料庫編碼UTF-8 設定MYSQL資料庫編碼UTF-8

設定MYSQL資料庫編碼為UTF-8   1、  編輯MySql的配置檔案 MySql的配置檔案Windows下一般在系統目錄下或者在MySql的安裝目錄下名字叫my.ini,可以搜尋,Linux下一般是/etc/my.cnf  

deepin15.7安裝與解除安裝MySQL(解決不提示設定密碼問題)、修改預設編碼utf-8以及查詢MySQL的一些命令

一、首先安裝MySQL 安裝前更新一下倉庫,輸入命令:sudo apt-get update [email protected]:~$ sudo apt-get autoremove --purge mysql-server-5.7 輸入命令:sudo

MySQL修改編碼UTF-8無效果解決辦法

本來這是一件很簡單的事,有很多部落格裡都有教程,但卻足足花了我半天的時間才解決問題。 可能是因為我的MySQL安裝時沒有選擇預設路徑的原因,按照網上的教程修改了下圖中的my.ini配置檔案後編碼並沒有發生變化。 來回試了好幾次都不行,重啟了服務N次..... [mysqld] characte