Sub EditCsvToXls() Application.ScreenUpdating = False '文件目录 ChDir "C:\Users\QA-Department\Desktop\test" Dim sDir As String Dim curdir As String curdir = "C:\Users\QA-Department\Desktop\test" sDir = Dir(curdir & "\*.csv")

用NPOI实现导入导出csv.xls.xlsx数据功能   直接上代码 首先定义一个接口   如果需要直接操作文件的话,就自己在封装一次 然后定义csv类的具体实现 这个需要引入命名空间LumenWorks.Framework.IO.Csv;可以Nuget里面下 接着定义excel的实现类的基类 这个需要下载NPOI 2.01版本 下载地址http://npoi.codeplex.com/releases/view/92382 接着实现2003版本 接着实现2007版本 然后定义一个枚举实现一个

.csv 和 .xls 的区别 .csv .xls 较为通用,易导入至各式表格.资料库等 Microsoft excel的专用档案 文本档案,用记事本就可以打开 二进位档案,只有用excel才能打开 以逗号为分隔 有格式设定 较为高效 较为低效

问题分析: Excel2007以前的格式是.xls,之后的格式是.xlsx.打开单独的一个Excel文档,使用“另存为”功能,可以很轻松的转换格式.但是面对几百个Excel表这样就太累了,搜索很久,也没发现一个工具可以直接批量进行格式转换. 最终发现可以使用VBA来实现批量转换Excel格式的功能.大家不要被吓到,VBA我也不懂,代码是从别人那里搞到的,现在也只是知道了怎么使用,但这足够解决问题了 VBA介绍: 1.VBA是一种编程语言,它依托于Office软件,不能独立的运行,通过VBA可以实

最近在使用遇到一个问题需要把csv格式的文件转成xls,随便新建一个excel,然后打开,选择“开发工具”,找到下图“宏”,如果跟下图一样的话就需要先启用宏,启用之后可以直接把下面的代码直接复制到代码区,修改一个路径就好. 以下代码试讲文件名为1.csv的文件,转化为2.xls 'ChDir "C:\" Dim sDir As String Dim curdir As String '要转换的文件路径 curdir = "C:\Users\GHZ\Desktop\数据文件\一

依赖 <dependency> <groupId>net.sourceforge.jexcelapi</groupId> <artifactId>jxl</artifactId> <version>2.6.12</version> </dependency> XLS package export; import java.io.File; import java.io.IOException; import j

最近项目中运用到了R读取文件数据,所以把相关好用的.经过验证的方法总结了一下,有效避免下次入坑. 1. R读取txt文件 使用R读取txt文件直接使用read.table()方法进行读取即可,不需要加载额外的包. read.table("/home/slave/test.txt",header=T,na.strings = c("NA")) 1 注意,此处的na.strings = c("NA") 的意思是文件中的缺失数据都是用NA进行表示:在读

需求:因为处理学生学籍照片,从照相馆拿回来的寸照是按班级整理好,文件名是相机编号的文件.那么处理的话,是这么一个思路,通过Excel表格打印出各班A4照片列表,让学生自行填上照片对应姓名.表格收回来后Excel表格上填入对应姓名,通过VBA更改电子档照片文件名. Function getSubDirectory()'获取当前文件的下层所有目录 Dim strCurDir, strDirectoryName, strDirs As String Dim arrDirectoryName() Dim

using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; using System.D

要用到的包: "golang.org/x/text/encoding/simplifiedchinese"    "golang.org/x/text/transform" func Decode(s []byte) ([]byte, error) {    I := bytes.NewReader(s)    O := transform.NewReader(I, simplifiedchinese.GBK.NewDecoder())    d, e := iou

今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_Click() Dim varFileList As Variant MsgBox "选择要重命名文件所在的文件夹,点击确定!" With Application.FileDialog(msoFileDialogFolderPicker)     .AllowMultiSelect = F

虽然平常在用excel 2010重命名工作表的时候,一般可能会用"双击工作表"的方法来重名,但是遇到大批量重名的时候就很麻烦. 我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码 Sub rename() '批量工作表重命名 Dim i As Integer For i = 1 To 5 Worksheets(i).Name = Cells(i, 1) Next End Sub

不知道为什么计组老师的大量课件字体是伤害视力的亮蓝色……看久了眼睛疼,想把颜色替换成保护视力一点的灰色,但是找了N久也没找到在图形界面上直接操作的方法,于是在MSDN上晃了晃,Google了一下,写了个VBA小脚本,只替换选定颜色,这样可以保留红色或者其他颜色的高亮,顺便把让人分心的花花背景也干掉. Sub ReplaceColor() Dim shape As shape Dim slide As slide Dim txt As TextRange On Error Resume Next

sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10    '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sheets(1).Cells(1, i) Next End Sub

需求:因为处理学生学籍照片,从照相馆拿回来的寸照是按班级整理好,文件名是相机编号的文件.那么处理的话,是这么一个思路,通过Excel表格打印出各班A4照片列表,让学生自行填上照片对应姓名.表格收回来后Excel表格上填入对应姓名,通过VBA更改电子档照片文件名.(此次重写使用了类模块和fso,并对插入的图片类型进行了过滤,避免了插入非图片类型文件) 大概流程如下图: 操作界面如下图: vba代码模块如下图,包括ThisWorkbook的open事件代码.测试过程代码(即插入图片.删除图片.重命名

Function findAndCopy(srcFile As String, destFile As String, cmdFile As String) Dim WSH As Object, wExec As Object, result Dim val, n Dim i As Integer Dim sFile As Object, Fso As Object Dim cmdStr As String Set WSH = CreateObject("WScript.Shell")

1 . http://www.bangchui.org/read.php?tid=62 2 .http://blog.csdn.net/xinzheng_wang/article/details/7793692 3. 测试用例 4.http://xiangqianppp-163-com.iteye.com/blog/1479074

感谢会飞的鱼大牛~ Public fp$, obmapp As Object Sub kk() 文件夹浏览器 Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") If fp = "" Then Exit Sub Set ff = fso.getfolder(fp) Documents.Add DocumentType:=wdNewBlankDo

1.1:连续有几个图的时候,如果需要设置某一个图的横坐标标签隐藏,要注意将坐标轴标签属性和坐标轴曲线粗细的属性区分开来 1.2:PlotArea里面有left和insideLeft属性,结合两个可以控制画出来的图像上下是对齐的,包括起始点

Sub hong3()'' 宏3 宏d Dim a, b As Integer Dim str As String For a = 227 To 947 Step 15 b = a + 5 str = "Sheet1!B" + CStr(a) + ":G" + CStr(b) sh = ActiveSheet.Shapes.AddChart2(216, xlBarClustered) sh.Select ActiveChart.SetSourceData Sourc