利用VBA將excel資料表生成JSON檔案（utf8）
然後遍歷資料區，格式化資料，輸出即可。
小資料還行，大資料沒測試。
另，使用fso建立的文字檔案編碼為ANSI，ajax解析json時出現亂碼無法正常解析。
Sub
ToJson() '建立UTF8文字檔案
myrange
= Worksheets("sheet1").UsedRange
'通過有效資料區來選擇資料
'myrange
= ActiveWorkbook.Names("schoolinfo").RefersToRange '通過定義的名稱來選擇資料
'myrange
= Range(Worksheets("sheet1").Range("a1").End(xlDown), Worksheets("sheet1").Range("a1").End(xlToRight)) '通過標題行的最大行最大列來選擇資料Total
= UBound(myrange, 1) '獲取行數
Fields
= UBound(myrange, 2) '獲取列數
Dim
objStream As
Object
Set
objStream = CreateObject("ADODB.Stream")
With
objStream
.Type
= 2
.Charset
= "UTF-8"
.Open
.WriteText
"{""total"":"
& Total & ",""contents"":["
For
i = 2 To
Total
.WriteText
"{"
For
j = 1 To
Fields
.WriteText
""""
& myrange(1, j) & """:"""
& Replace(myrange(i, j), """",
"\""")
& """"
If
j <> Fields Then
.WriteText
","
End
If
Next
If
i = Total Then
.WriteText
"}"
Else
.WriteText
"},"
End
If
Next
.WriteText
"]}"
.SaveToFile
ActiveWorkbook.FullName & ".json",
2
End
With
Set
objStream = Nothing
End
Sub
相關推薦
利用VBA將excel資料表生成JSON檔案（utf8）
ADODB.Stream建立UTF-8+BOM編碼的文字檔案。然後遍歷資料區，格式化資料，輸出即可。小資料還行，大資料沒測試。另，使用fso建立的文字檔案編碼為ANSI，ajax解析json時出現亂碼無法正常解析。 Sub ToJson() '建立UTF8文字檔案
C#將Excel資料表匯入SQL資料庫的兩種方法
方法一: 實現在c#中可高效的將excel資料匯入到sqlserver資料庫中,很多人通過迴圈來拼接sql，這樣做不但容易出錯而且效率低下，最好的辦法是使用bcp，也就是System.Data.SqlClient.SqlBulkCopy 類來實現。 using Sys
ssm利用poi將excel資料匯入資料庫
POI匯入資料庫 1.前臺頁面 <form action="<%=request.getContextPath()%>/doFile.action" method="post" enctype="multipart/form-data">
使用命令列將Excel資料表匯入Mysql中的方法小結
從Excel資料表匯入Mysql，已經做過好幾次了，但每次都會碰到各種問題：invalid utf8 character string, data too long, ...，浪費了不少時間 為了提高效率，是時候指定一個數據匯入的SOP了： 1.準備.txt檔案
利用SHAPEIT將vcf文件進行基因型（genotype）定相（phasing）：查看兩個突變是否來源於同一條鏈（染色體或父本或母本）
soft jar GC maps tst PE mes center mat 首先，下載SHAPEIT. 按照裏面的步驟安裝完後，將vcf文件進行基因型定相，分四步走。 第一步，將vcf文件轉化為plink二進制文件（.bed, .bim, .fam）。 這一步
【自然語言處理入門】03：利用線性迴歸對資料集進行分析預測（下）
上一篇中我們簡單的介紹了利用線性迴歸分析並預測波士頓房價資料集，那麼在這一篇中，將使用相同的模型來對紅酒資料集進行分析。 1 基本要求 利用線性迴歸，對紅酒資料集進行分析。資料集下載地址。 2 完整程式碼 #-*- codin
Java讀取和解析Excel資料：基於Apache POI（二）
Java讀取和解析Excel資料：基於Apache POI（二） 假設附錄1文章中的test.xls是對員工的考勤記錄表。需要根據這張excel表統計員工的加班時間，那麼需要重點關注第五列的下班時候的打卡記錄時間。我寫一個Java程式，根據附錄1中那樣的excel表中的下班打卡時間統計員工在
Java讀取Excel資料：基於Apache POI（一）
Java讀取Excel資料：基於Apache POI（一） Java本身不支援直接讀取微軟的Excel表格資料。第三方的Apache提供了一個庫POI用以支援Java讀寫Excel表格資料。 首先需要到Apache官網下載POI的庫，下載連結地址：https://poi.apache.org
【自然語言處理入門】03：利用線性迴歸對資料集進行分析預測（上）
本篇筆記是《從自然語言處理到機器學習入門》課程第三次作業的上篇，主要是復現了老大課上講的利用線性迴歸對波士頓房價進行預測的實驗。在下篇中，將利用該模型對紅酒資料集進行線性迴歸分析。 1 基本要求 利用提供的波士頓房價資料，對其進行分析。資
nodejs將word文件轉為html檔案（指令碼）--獲取word文件內容
本來是想寫 用nodejs 或者 js 將word文件轉為html的指令碼， js在IE瀏覽器下有 new ActiveApplication 物件可以 獲取文件 nodejs 獲取文件看這篇http://www.jianshu.com/p/68a420a6
Tcl/tk例項—使用tclkit工具將指令碼打包成可執行檔案（.exe）
下載 tclkit.exe 工具，及 sdx.kit 檔案。 複製一份tclkit.exe ，命名為tclkit2.exe。 假設你的指令碼檔案為：app.tcl Step1: 命令列執行 tclkit.exe sdx.kit qwrap app.tcl 執
利用vi編輯器建立和編輯正文檔案（二）
末行模式下的命令 1、 w：寫檔案，將編輯的內容儲存到檔案系統。 2、 w！：如果只讀檔案，強制寫入系統。 3、
[Windows程式設計] 如何捕捉程式異常 crash 並生成 dump 檔案（轉）
程式崩潰（crash）的時候， 為了以後能夠除錯分析問題， 可以使用WinDBG要把當時程式記憶體空間資料都儲存下來，生成的檔案稱為dump 檔案。 步驟： 1） 開啟WinDBG並將之Attach 到crash的程式程序 2） 輸入產生dump 檔案的命令 Wi
Linux磁碟寫入測試哦 生成大檔案（dd）
dd命令可以建立指定大小的檔案 命令： dd if=/dev/zero of=test bs=1M count=1000 會在當前目錄下生成一個大小為1M*1000=1000M大小的test.img檔案，它的內容都是0（因從/dev/zero中讀取，/dev/ze
利用Python將Excel表中的資料匯入Mysql資料庫
python操作Excel 需要匯入xlrd包，可以通過pip install xlrd 一鍵安裝。 #coding=utf-8 ''' python 將指定目錄下的excel檔案匯入到資料庫中 ''' # 引入資料庫包 import pymysql # 引入操作excel包
利用poi將excel表中資料讀取存入mysql資料庫（資料量比較大）
最近被老大安排了一個任務，利用程式將excle表中的資料讀取到，做處理，然後存進資料庫。接到任務的時候人是懵逼的。但是安排的任務也得硬著頭皮完成。現將做的東西記錄如下，方便以後查詢。 這個小demo的原型是在網上找的，demo連結如下 http://www.cnblogs.
python將Excel資料匯出幷儲存在json檔案中
一：python3.6，安裝xlrd模組（windows 環境下easy_install-3.6.exe xlrd） 二：程式碼如下： # -*- coding: utf-8 -*- import xlrd import json def open_excel(file): """
利用DevExpress將DataTable資料匯出到Excel
方法：根據DataTable列名動態建立GridControl，然後利用GridView匯出Excel，同時還可以匯出其他形式檔案。 using DevExpress.XtraGrid.Views.Grid; using DevExpress.XtraEditors; us
170618 如何利用pandas將numpy陣列匯出生成excel
上圖 程式碼 # -*- coding: utf-8 -*- """ Created on Sun Jun 18 20:57:34 2017 @author: Bruce Lau """ i
使用vb將excel匯入PowerDesigner,生成表結構
'****************************************************************************** Option ExplicitDim mdl ' the current modelSet mdl = ActiveModelIf (mdl Is