精华内容
下载资源
问答
  • 所以他想有个工具可以快速的将CSV文件转换成excel文件类型,问我能否使用Access来实现,正好前一段时间发了个VBA转换Excel文件类型为CSV的示例,在此基础上略修改就实现了CSV转换成excel文件类型的功能。...

    eaf171728206de6af54e8ea40c98fec0.png

        【源码示例】-VBA转换CSV文件类型为Excel。

        有一个客户在日常工作中需要处理数据量比较大的CSV文件,直接使用excel打开会比较慢,所以他想有个工具可以快速的将CSV文件转换成excel文件类型,问我能否使用Access来实现,正好前一段时间发了个 VBA转换Excel文件类型为CSV 的示例,在此基础上略做修改就实现了CSV转换成excel文件类型的功能。

    3d2cd4625943d9cee5d0864b8e88b7f1.png示例下载:

          在屏幕左下角的

    End推荐阅读6db299e58d63a162487f21e0559db859.pngAccess训练营 从0基础开始,循序渐进,系统化的训练营课程,整合作业、课表、社群,为学员提供答疑,获得更佳的学习效果。【详情>> 6a6c819ca7de9c5ffb5d0986e75ca990.pngAccess专家课堂 是Access数据库爱好者提升技能的专业课堂,由微软最有价值专家张志创办,课堂有众多Access课程,可通过电脑或微信学习。【详情>> 2074f1a072f6c2055dea012225df33d6.pngAccess软件作品 十二位Access学员对自已开发的软件进行了介绍并分享开发心得,一起来了解Access开发的软件。【详情>> 5f10a9d7e04b9c67ab1bfa61c63d077d.png从Excel到Access数据库 为广大Excel用户了解、学习Access数据库开设的一个实用课程,侧重于数据统计分析。【详情>> 10343a03f4017a832c04ddbe3927baa3.pngAccess每天3分钟 视频课程共50集,Access的基础知识并结合示例详细讲解,每集视频只有短短几分钟,学员可以利用碎片化的时间,每天进步一点点【详情>> 029503ba5d8e3a126c05ada92cdf9c64.png张志,Access数据库培训讲师,『Access软件网』创始人,服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】 

    展开全文
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。在Modules文件夹下的csMain文件中,写下如下VB格式的代码:Public Sub Source做成()'声明Excel相关Dim xlApp As ...

    打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。

    在Modules文件夹下的csMain文件中,写下如下VB格式的代码:

    Public Sub Source做成()

    '声明Excel相关

    Dim xlApp As Excel.Application

    Dim xlBook As Excel.Workbook

    Set xlApp = New Excel.Application

    '获取指定excel文件

    Set xlBook = xlApp.Workbooks.Open("C:\test.xls")

    Dim sheet As Excel.Worksheet

    '获取指定sheet

    Set sheet = xlBook.Worksheets(2)

    Dim ss As String

    '获取指定单元格的内容

    ss = sheet.Cells(2, 2)

    '内容显示

    MsgBox (ss)

    End Sub

    测试效果:弹出一个信息框,显示的内容是C盘下test.xls文件的第2个sheet的(2,2)单元格中的内容。

    分享到:

    18e900b8666ce6f233d25ec02f95ee59.png

    72dd548719f0ace4d5f9bca64e1d7715.png

    2009-08-24 16:57

    浏览 18952

    评论

    展开全文
  • 今天在两个地方看到了这样一个问题:把一个excel中的表复制出来另存为一个独立的excel文件。其中一个是cnblog,另一个想不起来了。想到自己将来也可能遇到这样的问题,于是用powershell了一个脚本以备不时之...

    This article also published in Eng @ http://www.cnblogs.com/LarryAtCNBlog/p/4441201.html

    今天在两个地方看到了这样一个问题:把一个excel中的表复制出来另存为一个独立的excel文件。其中一个是cnblog,另一个想不起来了。想到自己将来也可能遇到这样的问题,于是用powershell做了一个脚本以备不时之需。

     

    Powershell

    当然,首先要有一个excel文件包括了一堆表。

    用脚本自动化excel最常用的是COM object,下面的语句就是新建一个excel.application实例并把DisplayAlerts置为false,这样可以避开excel的告警。

    $Excel = New-Object -ComObject Excel.Application
    $Excel.DisplayAlerts = $false

    这其实就相当于我们双击了一下excel.exe,如果想把它显示出来只需要把$Excel.Visible属性置为true即可。

    下面的语句就是打开目标excel文件,该open方法仅接受绝对路径。

    $WorkBook = $Excel.Workbooks.Open("$PWD\all.xlsx")

    现在我们已经有了workbook的对象,我们只需要对其中的Sheets做循环复制到一个新的Workbook即可。

    $WorkBook.Sheets | %{
        # 设置新的workbook的路径
        $NewWorkBookPath = "$PWD\$($WorkBook.Name)_$($_.Name).xlsx"
        # 新建一个workbook
        $NewWorkBook = $Excel.Workbooks.Add()
        # 把当前的sheet复制到这个新的workbook里面
        $_.Copy($NewWorkBook.Sheets.Item(1))
        # 默认新建一个workbook是有3个空的sheet,下面的语句是删掉这几个空的表
        2..$NewWorkBook.Sheets.Count | %{
            $NewWorkBook.Sheets.Item(2).Delete()
        }
        # 把该新的workbook另存为
        $NewWorkBook.SaveAs($NewWorkBookPath)
        # close new workbook
        $NewWorkBook.Close()
    }

    At last, close old workbook and excel.

    最后,调用close方法关闭原来的workbook和excel

    $WorkBook.Close()
    $Excel.Quit()

    到这里可能有人注意到任务管理器里依然有一个excel.exe存在,实际上在其它的程序语言中也会遇到同样的问题,对于该问题的答案MS已经给出了解决办法。

     https://technet.microsoft.com/en-us/library/ff730962.aspx

    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null

    到这里工作就完成了,改良脚本就是之后的事了。

     

    VBA

    另一个方法是用office自带的宏来做这件事,打开excel按Alt + F11之后就能调用VBA editor,如果你不能的话可能是最开始安装office的时候没有选择宏组件。

    VBA中的方法非常类似,只不过操作的对象不同罢了。

    Sub SplitSheets()
        Application.DisplayAlerts = False
        For Each Sheet In Sheets
            NewWorkBookPath = ActiveWorkbook.FullName & "_" & Sheet.Name & ".xlsx"
            Set w = Workbooks.Add
            Sheet.Copy w.Sheets.Item(1)
            For i = 2 To w.Sheets.Count
                w.Sheets.Item(2).Delete
            Next
            w.SaveAs NewWorkBookPath
            w.Close
            Set w = Nothing
        Next
    End Sub

    这其实就是建了一个宏而已,在workbook界面用Alt + F8可以调用出宏界面执行它,或者在VBA editor界面按F5执行宏即可。

     - Larry

    转载于:https://www.cnblogs.com/LarryAtCNBlog/p/4442658.html

    展开全文
  • access上用vba编写代码导出access数据表中数据做成Excel文件保存,如何实现?我用传统的数据连接: '连接数据库查询 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=D:\aa.mdb" rst.Open SQL, cnn, ...
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。   在Modules文件夹下的csMain文件中,写下如下VB格式的代码:   Public Sub Source...

    打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。

     

    在Modules文件夹下的csMain文件中,写下如下VB格式的代码:

     

    Public Sub Source做成()
    
    '声明Excel相关
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        
        Set xlApp = New Excel.Application
    '获取指定excel文件
        Set xlBook = xlApp.Workbooks.Open("C:\test.xls")
    
        Dim sheet As Excel.Worksheet
    '获取指定sheet
        Set sheet = xlBook.Worksheets(2)
        
        Dim ss As String
    '获取指定单元格的内容
        ss = sheet.Cells(2, 2)
        
    '内容显示
        MsgBox (ss)
      
    End Sub

     

    测试效果:弹出一个信息框,显示的内容是C盘下test.xls文件的第2个sheet的(2,2)单元格中的内容。

     

     

    展开全文
  • VBA读取Excel和CSV

    万次阅读 2011-04-12 16:21:00
    使用VBA读取EXCEL:   <br />打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。   在Modules文件夹下的csMain文件中,写下如下VB格式的代码...
  • 虽然复制粘贴大法好,但如果让你汇总几十人填报的个人信息并做成汇总表格,估计你也膜不动了。因此,这一次我们就通过VBA程序完成这个任务,从此妈妈再也不担心我数数到头秃。 程序基本思路 将要合并的Excel文件放...
  • 使用Python进行Excel文件拆分

    千次阅读 2020-06-19 14:50:44
    运营的伙伴希望把这个表按区域或按门店拆分单个的数据文件再给到相应的人,看上去并不复杂的一个需求,实现的方式有很多,可以手工筛选再拆分,可以用EXCEL做透视表,也可以用VBA写个脚本等等。(中小企业在成长到...
  • 狗.jpg在日常工作当中,很多人每天的任务就是表,而表格数据又得从数据库中去查找,然后查询出来的数据导出为Excel文件,然后再在Excel里面用函数,数据透视表着以往每天都要的内容。实话说,既...
  • 他们需要将sheet合并,这样以便筛选,透视表。 这里帮他们搞了个xlsm小工具,直接将一个工作簿中的多个sheet合并为1个。 小工具界面 打开文件,里边有操作表sheet以及结果表sheet。操作表是选择文件,或者填写...
  • EXCEL文件做为数据转移媒介时,需要导入数据到文件 大量数据,做成异步处理:1、可以先把数据分别倒成多个excel,每个excel里面只放一个sheet的数据,这样内存爆掉的问题应该不会有了;2、全部倒好后,写个VBA ...
  • EXCEL做动画

    2012-05-30 12:15:39
    频及avi视频文件,不过Excel vba只能播放wav格式的音频。 实际上,我是用 免费录屏软件Wink + AHK 按键脚本进行每帧抓图代替Camtasia Studio屏幕录制,这样降低录制的帧率的好处: 一、可以解决"闪屏"的问题; ...
  • 闲话少说,昨天闲着看小说的时候,突然朋友来信询问用Excel的VBA把XML转成Excel格式表示出来的程序编译通不过。他是网上找的一个简单的例子,没想到程序虽短,坑却不少。随即东拼西凑,了个例子大致解决问题。网上...
  • VBA编程

    2018-11-08 11:50:52
    Public Sub Source做成() '声明Excel相关 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application '获取指定excel文件 Set xlBook = xlApp.Workbooks.Open(“Q:\te\test....
  • 使用Python做NLP任务的时候,经常会清洗数据,做成txt文件,每一行代表一篇文章。但是,采用pd.read_csv(‘新华社数据.csv’, encoding = ‘GB2312’, error_bad_lines=False) 这种方法会出现报错,无法识别位置XXX...
  • 最近工作用到数据对比处理,Excel用的比较多,奈何自己VBA不够熟悉,复杂一点的功能,起来挺吃力的,就想起了Python来解决。 将期望功能代码打包exe文件,在window环境中运行,获得想要的结果。 本文代码只是...
  • 这几天在做一个数据处理,文件EXCEL格式的,本来想用PATHON或C++来做,但时间关系,本来就没有想到要做成多复杂,只是简单的做必要的数据处理。因此,使用了VBA这个工具,在网上找了一些基本的资料,边学边做。...
  • excel eztools工具之原理

    2018-01-10 07:17:23
    问题:数据抽取按钮不能识别2007excel文件格式。 将多个宏文件,转化工具栏按钮,宏文件在Aud_toolbar.xls这个文件里,有VBA工程密码,解除。 需要如下: 该文件真正在C:\Users\Administrator\AppData\...
  • VBA实现字符子串解析

    2019-08-10 00:16:23
    今天老板交代的任务比较单调,给了我一个xml文件的文件夹,一个里面写满了xxx.sc函数名的txt文件,让我查找它们之间除掉后缀名之后的互相匹配情况,统计到一个excel表格里。我看看了,没仔细想就觉得很简单就开始...
  • Excel百宝箱

    2012-10-27 17:09:21
    【创建多版本打开方式】:如果安装了多个版本的Office,本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行 【生成2003样式菜单】:Excel 2007或者Excel 2010专用,可以产生2003样式的菜单来...
  • 些情况下,我们在打印Excel文件时,有很多文件,比如打印员工卡,内容格式都一样,就是个别单元格的内容不同,只能改一次打印一次,效率低不说,可能不小心还会改错。当然可以做成几十甚至上百页依次打印,但这也...
  • 自动升级模块我做成了ftp服务器的模式,在ftp上面放了一个ver.txt里面第一行版本号,第二行更新日期,第三行开始可以写一些注释或者更新说明 当判断ver.txt里面的版本与本地excel的autoupgrade_main里面的版本号不...
  • excel 工具箱

    2012-01-22 15:04:34
    【工作表折分】:将当前工作表的数据按条件拆分多个工作表,可以用任意列的数据为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • 我这个文件,针对word的邮件合并,有以下优势: 1. 邮件合并只能一对一的输出. 但我用excel的分类输出,是可以将...怎么,不会做成pdf文件并合并分类输出? 可以在这留言,相互学习沟通. 原文来自: http://www.jimmy2k.top/
  • Excel终极伴侣1.291

    2009-03-19 09:01:10
    偶觉得还是用Excel横道图最方便了... ... 24、偶将呆板的网络调查和网络投票移植到OBS.DLL中了,变被动为主动! ... ... 有兴趣的请访问:http://www.ChinaOBS.com 。本站热诚欢迎您的到来。
  • Excel终极伴侣1.290

    2009-03-12 14:33:14
    偶觉得还是用Excel横道图最方便了... ... 24、偶将呆板的网络调查和网络投票移植到OBS.DLL中了,变被动为主动! ... ... 有兴趣的请访问:http://www.ChinaOBS.com 。本站热诚欢迎您的到来。
  • Excel终极伴侣1.288

    2008-11-26 16:01:36
    偶觉得还是用Excel横道图最方便了... ... 24、偶将呆板的网络调查和网络投票移植到OBS.DLL中了,变被动为主动! ... ... 有兴趣的请访问:http://www.ChinaOBS.com 。本站热诚欢迎您的到来。
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【创建多版本打开方式】:如果安装了多个版本的Office,本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行 【生成2003样式菜单】:Excel 2007或者Excel 2010专用,可以产生2003样式的菜单来...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【生成系统图标】【获取内置命令】【修复Excel】【破解VBA密码】【删除空单元格】【转置选区】【按列倒置】【按列倒置】【字母大小写转换】【小写金额转大写】【大写金额转小写】【区域数据加密】【多区域复制】【按...

空空如也

空空如也

1 2 3
收藏数 58
精华内容 23
关键字:

vba做成excel文件