1. 程式人生 > >【一步一步學習VBA】將Excel的每行資料匯出為txt文字

【一步一步學習VBA】將Excel的每行資料匯出為txt文字

這裡我就直接上原始碼:

Sub 匯出每行為txt()
Dim i, j, arr(), brr(), myRow, myCol
arr = Sheet1.UsedRange   '將工作表的內容放入arr陣列中
myRow = UBound(arr, 1)   '計算出陣列的行數
myCol = UBound(arr, 2)   '計算出陣列的列數
For i = 1 To myRow       '從第2行開始迴圈
Open ThisWorkbook.Path & "\" & arr(i, 1) & "1.txt" For Output As #1 '開啟一個以第一列資料命名的txt
Print #1, Join(Application.Index(arr, 1), ",")   '輸出表頭
Print #1, Join(Application.Index(arr, i), ",")   '輸出內容
Close #1              '關閉
Next                     '迴圈
End Sub

參考文章:點選

相關推薦

學習VBAExcel資料匯出txt文字

這裡我就直接上原始碼: Sub 匯出每行為txt() Dim i, j, arr(), brr(), myRow, myCol arr = Sheet1.UsedRange '將工作表的內容放入a

學習VBAExcel VBA 獲取當前單元格的資料型別

從上一篇文章我們已經可以獲取某單元格的資料,現在我們只要執行:MsgBox VarType(curCell)就可以獲取到型別,完整程式碼如下:Sub Macro1() ' ' Macro1 Macro

學習VBAExcel VBA 在當前目錄建立一個excel

首先我們新建一個EXcel表,然後調用出Visual Basic,同時寫入程式碼: Sub AddNew() Dim path As String, filepath As String filepa

Teaching Is a Fruitful Way to Learn教學是種有效的學習方式

  Teaching Is a Fruitful Way to Learn For thousands of years, people have known that the best way to understand a concept is to  explain it to

從下而上學習Redis資料結構篇():跳躍表(skiplist)

描述 跳躍表(skiplist)是對有序的連結串列增加上附加的前進連結,在列表中的查詢可以快速的跳過部分列表,因此取名跳躍表。跳躍表大概就長得如下圖所示 再舉個形象點的栗子,就像我們如果要去國外,如果徒步去當然會累死,於是我們先坐飛機,下飛機後乘坐汽車,然後再走一段路最

Access2007Excel表導入至Access2007的當中張已存在的表之中

數據 你會 username blog targe access 全部 from 解決 將Excel表導入至Access2007,你會發現萬惡的Access2007會幫你自己主動創建一張表。全然沒有問你是否要插入一張已存在的表之中。 那麽,我們須要這樣解決:

Access2007Excel表匯入至Access2007的其中張已存在的表之中

將Excel表匯入至Access2007,你會發現萬惡的Access2007會幫你自動建立一張表,完全沒有問你是否要插入一張已存在的表之中。 那麼,我們需要這樣解決: 一、按照正常的步驟先將Excel表匯入至Access2007 1、選擇標籤欄上的“外部資料”->e

人臉檢測——基於機器學習3AdaBoost算法

源代碼 夠快 等等 多個 利用 原理 設計 聯結 大量 簡介 主要工作 AdaBoost算法的人臉檢測算法包含的主要工作:(1)通過積分圖快速求得Haar特征;(2)利用AdaBoost算法從大量的特征中選擇出判別能力較強的少數特征用於人臉檢測分類;(3)提出一個

吳恩達機器學習隨筆什麽是機器學習

都是 mea 預測 learn 會有 code 度量 its 價格 定義    Tom Mitchell對機器學習定義為“計算機從經驗E中學習,解決某一任務T,進行某一度量P,通過P測定在T上的表現因經驗E而提高”。定義個人覺得大體理解即可,如果扣文咬字去理解會十分痛苦,就

人臉檢測——基於機器學習4HOG特征

block 模板 onf 介紹 顏色 組成 computer com ams 前言 HOG特征的全稱是Histograms of Oriented Gradients,基於HOG特征的人臉識別算法主要包括HOG特征提取和目標檢測,該算法的流程圖如下圖所示。本文主要講HOG特

Objective-C學習筆記變數和基本的資料型別

OC是增強了C的特性,所以在變數和基本資料型別上基本與C一致。 在OC中變數命名有如下規則: 由字母、數字、下劃線、$符號組成 必須以字母、下劃線、$符號開頭 大小寫敏感 在OC中定義變數的時候不能使用OC的保留字,OC的保留字如下: OC中有如下基本資料型別: in

Python3 爬蟲學習筆記資料儲存 1 -- TXT文字儲存

資料儲存的形式可以多種多樣,最簡單的形式是直接儲存為文字檔案,如TXT、JSON、CSV等。另外,還可以儲存到資料庫中,如關係型資料庫MySQL,非關係型資料庫MongoDB、Redis等。 檔案儲存 文字儲存形式多種多樣,比如可以儲存成TXT純文字形式,也可以儲存為JSON格式、C

python學習筆記43:Pandas時序資料處理

學習《Python3爬蟲、資料清洗與視覺化實戰》時自己的一些實踐。 Python中時間的一些常用操作 import time # 從格林威治時間到現在,單位秒 print('系統時間戳:', time.time()) print('本地時間按格式轉成str:', tim

C++學習筆記三、C++的資料型別、儲存以及基本運算

本文記錄了C++中的資料型別以及基本運算,這部分是典型的每次記每次忘型別,所以烙印在此,以便用時隨時查閱。 主要參考:http://www.runoob.com/cplusplus/cpp-data-types.html 1. C++中的資料型別 (1)基本型別 C++ 為程式

吳恩達機器學習筆記Week4 ex3答案

與上一週作業相同,按著公式程式設計就好了 function [J, grad] = lrCostFunction(theta, X, y, lambda) %LRCOSTFUNCTION Compute cost and gradient for logisti

Python3+VBAExcel中生成小姐姐

開發工具 Python版本:3.6.4 相關模組:PIL模組;openpyxl模組;以及一些Python自帶的模組。 Excel版本:Excel2016。 環境搭建 安裝Python並新增到環境變數,pip安裝需要的相關模組即可。 實現過程 Step1:

裴星宙的學習筆記一些學習筆記, 一點備忘錄.

專欄達人 授予成功建立個人部落格專欄

Convex Optimization (by Boyd) 學習筆記Chapter 2 - Convex sets(1) 仿射集&凸集

I. 仿射凸集(Affine and convex sets) 1. 線與線段 假設\(R^n\)空間內兩點\(x_1,x_2\, (x_1≠x_2)\),那麼\(y=\theta x_1+(1-\theta)x_2, \theta∈R\)表示從x1到x2的線。而當\(0≤\theta≤1\)時,表示x1

吳恩達機器學習筆記week3:1/2邏輯迴歸

第三週 六、邏輯迴歸(Logistic Regression) 這裡首先區分一下線性迴歸和邏輯迴歸,線性迴歸就是擬合,邏輯迴歸是分類。 6.2 假說表式(Hypothesis Representation) 下面一個部分主要講的是假設函式h(x)在分類問題中輸出只能是0/

微信小程式學習筆記1:開發一個帶歷史記錄功能的四則計算器

端午CSDN學院促銷,買了微信小程式開發實戰跟著學習一下。 混合模式移動應用 微信小程式是一種Hybrid-App(混合模式移動應用),它是介於Native-App和Web-App之間的,更接近前者,但開發成本小很多。 基本結構 pages目錄:其內的