精华内容
下载资源
问答
  • VBA读写Excel文件报错Debug一、VBA简介二、VBA读写Excel文件参考文档 一、VBA简介 VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。...

    一、VBA简介

    VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。
    可以认为 VBA 是非常流行的应用程序开发语言 VASUAL BASIC 的子集.实际上 VBA 是"寄生于" VB 应用程序的版本。
    一般宏语言在office软件如word和Excel中应用的广泛一些,可以通过菜单栏中的视图——宏——录制宏来进行自动化操作编程。

    二、VBA读写Excel文件

    以在excel程序中编辑VBA为例,

    Sub2()
    '
    ' 宏2 宏
    '
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim fn$
    Dim p0$
    fn="D:\test.xlsx"
    p0 = "5"
    Set wb = Workbooks.Open(fn)
    Set ws = wb.Sheets(1)
    ws.Cells(15, CInt(p0)) = "hello"
    End Sub
    

    代码中wb即为工作簿对象,ws即为工作表对象,Sheets(1)就是选中第一个工作表sheet1,Cells(r,c) 是选择单元格指令,r是行数,c是列数,这里行和列都以整数表示。

    三、调用Cells报错

    上述代码中ws.Cells(15, CInt(p0)) = "hello"语句执行没有问题,但是改成ws.Cells(15, p0) = "hello"就会报错,经过调试发现调用Cells(r,c)时,r的数据类型可以是整数也可以是字符串型,而c只能是整数,如果是字符串类型就会报如下图应用程序定义或对象定义错误
    在这里插入图片描述
    所以如果c的类型是字符串类型,就需要使用CINT(c)转换为整数类型。

    参考文档

    Workbooks.Open 方法 (Excel)
    如何Word中用VBA打开Excel表格,读取其中的内容写入到Word
    Workbook 对象 (Excel)

    展开全文
  • VBA读写excel文档属性

    千次阅读 2013-11-15 16:38:31
    原文地址:用VBA读写excel文档属性作者:严雪用VBA读写excel文档属性2011-01-04 08:08要实现限制文件的使用次数,想来应该在某个地方存储文档已用的次数,并且在文档每被使用一次这个使用次数就得发生相应的更改。...
    原文地址:用VBA读写excel文档属性作者:严雪

    用VBA读写excel文档属性2011-01-04 08:08要实现限制文件的使用次数,想来应该在某个地方存储文档已用的次数,并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话,我们就可以利用文档属性的某个位置来实现这一想法,故有了以下两种形式:
    一、利用自定义属性:因为我们可以自定义数字型的属性,这一点非常符合我们的需求
    先用一行代码ThisWorkbook.CustomDocumentProperties.Add Name:="open_times",LinkToContent:=False,Type:=msoPropertyTypeNumber,Value:=10来定义一个名为open_times的数字型属性、初始值为10。当然也可以手动定义
    然后在文档的打开事件中写入:
    Private Sub Workbook_Open()
    If ThisWorkbook.CustomDocumentProperties("open_times")1 Then MsgBox"可用次数已小于1"
    Else ThisWorkbook.CustomDocumentProperties("open_times")=ThisWorkbook.CustomDocumentProperties("open_times")-1 End If End Sub
    注:1、这里我们只讨论在必须启用宏的情况下。2、这里只写了打开文档的次数,要想保存、修改等等,请作相应改动。3、限制的代码请自行修改,此处只写了MsgBox"可用次数已小于1"这么一个提示信息
    二、上一个方法自然、直观,但不隐蔽。再利用内置文档属性直观上不容易发现的:
    先用一行代码ThisWorkbook.BuiltinDocumentProperties.Item("comments")=""将备注清空,然后文档每打开一次其备注增加一个空格,再判断其长度,当长度达到我们的限制要求时,作相应操作:
    Private Sub Workbook_Open()
    ThisWorkbook.BuiltinDocumentProperties.Item("comments")=ThisWorkbook.BuiltinDocumentProperties.Item("comments")&""
    If Len(ThisWorkbook.BuiltinDocumentProperties.Item("comments"))10 Then MsgBox"已超过可用次数"
    End If End Sub
    注:同前,限制的代码请自行修改,此处只写了一个提示信息

    展开全文
  • 将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据,并自动绘制曲线图!不含任何空间,纯代代码,方便移植。
  • VBA操作Excel简介一、VBA读写Excel文件 一、VBA读写Excel文件

    一、VBA读写Excel文件

    VBA简介及打开Excel文件方法见VBA读写Excel文件报错Debug,这里不再赘述,只介绍新建和关闭Excel文件代码如下:

    Workbooks.Add'创建一个新的工作簿即excel文件
    fn="D:\test01.xls"'待打开的文件路径
    Set wb = Workbooks.Open(fn)
    wb.Close savechanges:=False'false为不保存,true为保存
    

    当前VBA依托的Excel工作簿对象名称为ThisWorkbook,当需要对其进行操作时,使用如下代码:

    ThisWorkbook.Sheets(1).Cells(1, 1) = "hello"
    

    二、VBA设置单元格属性

    设置单元格格式
    设置单元格高度、宽度、对齐方式、字体大小等参数,代码如下:

    ThisWorkbook.Sheets(1).Cells(row01, 1).RowHeight = 40'设置单元格行高
    ThisWorkbook.Sheets(1).Cells(row01, 1).ColumnWidth = 40'设置单元格列宽
    ThisWorkbook.Sheets(1).Cells(row01, 1).Font.Size = 24'设置字体大小
    ThisWorkbook.Sheets(1).Cells(row01, 1).Font.Name = "Times New Roman"'设置字体类型
    ThisWorkbook.Sheets(1).Cells(row01, 3).Font.ColorIndex = 45'设置字体颜色
    ThisWorkbook.Sheets(1).Cells(row01, 3).Font.Bold = True'设置字体加粗
    ThisWorkbook.Sheets(1).Cells(row01, 3).Font.Italic = True'设置字体倾斜
    ThisWorkbook.Sheets(1).Cells(row01, 1).HorizontalAlignment = xlCenter'设置水平对齐方式,类型有xlLeft,xlRight,xlLeft
    ThisWorkbook.Sheets(1).Cells(row01, 1).VerticalAlignment = xlCenter'设置垂直对齐方式
    ThisWorkbook.Sheets(1).Cells(row01, 1).Borders.LineStyle = xlContinuous'设置边框类型为实线,全框
    ThisWorkbook.Sheets(1).Cells(row01, 1).Borders.Color = RGB(0, 0, 0)'设置边框颜色
    

    边框类型主要有以下几种:
    在这里插入图片描述
    字体颜色可以通过VBA内部索引设置,VBA内置的颜色及对应的值如下:
    在这里插入图片描述
    也可以通过RGB值直接设置,如Color = RGB(0, 0, 0)。
    获取最后一行和最后一列
    有时我们需要获得工作表中带有数据的最后一行或最后一列
    那么可以使用如下代码:

    row01 = ThisWorkbook.Sheets(1).Range("a" & ThisWorkbook.Sheets(1).Rows.Count).End(xlUp).Row'获取a列的最后一行
    col01 = ThisWorkbook.Sheets(1).Cells(2, ThisWorkbook.Sheets(1).Columns.Count).End(xlToLeft).Column'获取第二行的最后一列
    

    End参数说明如下:
    在这里插入图片描述

    三、VBA弹出输入和输出窗口

    获取窗口输入
    显示用于用户输入的对话框,通过Application.InputBox方法来实现,代码如下:

    Dim note01 As String
    Dim num01 As String
    note01 = "请输入姓名"'窗口显示的消息
    name01 = Application.InputBox(prompt:=note01, title:=note01)'获取到的值赋值给name01
    

    该方法参数为InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type),说明如下
    在这里插入图片描述
    Type 参数是指返回的数据类型, 可以是一个值,也可以将多个值相加。 例如,对于可接受文本和数字的输入框,将 Type 设置为 1 + 2。
    在这里插入图片描述
    将输出显示到窗口
    将一些信息以窗口提示的方式显示出来,使用MsgBox方法,语法为
    MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])
    各个参数说明如下:
    在这里插入图片描述

    参考文档

    Excel VBA入门(八)单元格边框
    Excel VBA:设置行高与列宽
    vba设置Excel单元格左对齐、右对齐、居中对齐、字体、字号、字型
    Application.InputBox 方法 (Excel)
    MsgBox 函数
    Excel-VBA常用对象(Application、Workbook、Worksheet、Range)

    展开全文
  • 在VBS或VBA读写EXCEL文件,只需要在代码中添加下面的语句即可实现:Dim App, Book, SheetSet App = CreateObject("excel.application") '创建excel进程,VBS中为:Set App = Wscript.CreateObject("excel....

    在VBS或VBA中读写EXCEL文件,只需要在代码中添加下面的语句即可实现:

    Dim App, Book, Sheet

    Set App = CreateObject("excel.application") '创建excel进程,VBS中为:Set App = Wscript.CreateObject("excel.application")

    Set Book = App.workbooks.Open("D:\Users\123.xlsx") '打开指定路径的文件

    Set Sheet = Book.Sheets("Sheet1") '设置活动的工作表

    Dim Data

    Data = sheet.cells(3,5) '读取第3行第5列单元格中的数据

    Sheet.cells(6,9)=77 '向第6行第9列单元格中写入数据

    Book.Close (True) '保存并关闭excel文件,如果参数为False则不保存文件

    App.Quit '结束app进程

    Set App = Nothing '释放app对象

    展开全文
  • <br />Sub Macro1()    Const cnsTITLE = "フォルダ内のファイル名一覧取得"  Const cnsDIR = "/*.*"  Dim xlAPP As Application  Dim strPATHNAME As String  Dim ...
  • Qt下读写Excel文件,网上推荐是适用QAxObject QAxObject *excel = new QAxObject; excel->setControl(“Excel.Application”); //连接Excel控件 但是这个用法有问题,当机器没有安装Office的时候,是不能调用...
  • C++ Read and write Excel files Submitted by:  numberduck Wednesday, November 20, 2013 - 17:46 Language:  C/C++ Visitors have acces
  • excel简单vba读写TXT的交互

    万次阅读 2018-07-05 11:04:33
    1.读取excel写TXT(VBA)Sub 导出Erwin参数文件() ' ' 导出Erwin参数文件 宏 ' 'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") Filename = "logical_...
  • excel和python哪个难学excel 分应用和VBA编程,phthon本就是编程语言,对数据分析来说,excel足够了,而且是最容易学习的数据处理与分析应用软件,Python肯定比excel难学。如何学pythonpython数据分析的门槛较低果是...
  • 自己写的VBA程序,基本覆盖了常用操作,还有进度条,数据库读写,格式定制
  • 手把手教你利用VBA+excel制作 IFIX 报表 可完美移植到VB6.0。 正在的手把手,一步一图,代码详解! 其中主要讲述如何判断文件、数据文件的存在、...并如何利用EXCEL模块建立报表,读写EXCEL等等。 本文介绍的是日报表
  • 在学习完最基本的Python语法之后,我们终于可以开始尝试简单的办公应用,比如今天刚刚发布的《基础篇》第十八回 “Excel读写初体验,外部模块调用首立功”。目前该课程已经可以在网易云课堂观看,同时知识点笔记、...
  • xlwings能够非常方便的读写Excel文件中的数据,并且能够进行单元格格式的修改 可以和matplotlib以及pandas无缝连接 可以调用Excel文件中VBA写好的程序,也可以让VBA调用用Python写的程序。 开源免费,一直在更新 ...
  • python操作Excel文件VBA

    千次阅读 2011-01-15 00:09:09
    通过python的win32com接口可以调用Microsoft的office组件,从而实现对excel读写操作。该方法只实用于windows平台,且需要安装Microsoft Office Excel. 本人使用的python版本为ActiveState发布的ActivePython ...
  • python读写excel遇到的几个坑

    千次阅读 2020-02-20 16:29:05
    因为有一个文件需要处理,因此开始学习用python处理excel文件,以前一直用excel 的VBA,但学习了python之后,感觉python的功能强大,想用python来处理一下。 一、用什么库的坑 如果是只读excel ,推荐直接xlrd,速度...
  • EPPlus 读写 Excel 资料收集

    千次阅读 2016-08-25 16:34:46
    EPPlus 是使用Open Office XML格式(xlsx)读写Excel 2007 / 2010文件的.net开发库。 官网:http://epplus.codeplex.com/ EPPlus 支持: 单元格范围单元格样式(边框,颜色,填充,字体,数字,对齐)图表图片...
  • 使用EPPlus(C#)读写Excel

    千次阅读 2018-03-15 16:38:40
    1. EPPlus概述EPPlus 是使用Open Office XML格式(xlsx)读写Excel 2007 / 2010文件的.net开发库。官网:http://epplus.codeplex.com/EPPlus 支持:单元格范围单元格样式(边框,颜色,填充,字体,数字,对齐)图表...
  • 用python来读写excel,目前找了2个方法:win32com.client和openpyxlwin32com.client可以对excel进行各种操作,可以调用VBA的库,相当于是模拟用户对excel进行操作,在执行过程中,你可以看到ex...
  • python office 之 读写excel电子表格。 主要的可以操作excel的模块有:xlutils(仅支持xls文件),xlwings(支持vba),openpyxl,pandas,win32com(仅支持windoc,不太好用),xlsxwriter(不能打
  • 项目周报汇报的时候要做数据汇总,总是要从不同的excel文件中去获取数据最后汇总到一个excel表里面,所以决定用python直接写个自动化脚本来自动执行。 用python来读写excel,目前找了2个方法:win32com.client和...
  • Spire.XLS特点 Spire.XLS for .NET 支持所有Excel格式类型(97-2003, 2007, 2010)文件。 支持Excel文件的新建,修改...支持向Excel文件里面写入公式,表格,图片,不同类型的文字,链接,注释甚至VBA等内容; 支持将E
  • 用python来读写excel,目前找了2个方法:win32com.client和openpyxlwin32com.client可以对excel进行各种操作,可以调用VBA的库,相当于是模拟用户对excel进行操作,在执行过程中,你可以看到ex...
  • Excel读写控件

    2006-03-16 00:00:00
    表公司开发的Excel读写控件采用直接分析Excel文件格式的方法,可以获取Excel文件的所有细节,并 且机器上不需要安装Excel软件,尤其适合BS结构的企业应用软件(这样客户端配置很简单,仅需下载 一个控件即可,不用...
  • 学习Excel技术,关注微信公众号:excelperfect文本文件是一种常用的文件格式,使用文本文件读取和存储信息不仅快而且简单。VBA能够很好地操作文本文件,下面是要使用到的一些代码指令。Open打开文件以便进行读写。...
  • 学习Excel技术,关注微信公众号:excelperfect文本文件是一种常用的文件格式,使用文本文件读取和存储信息不仅快而且简单。VBA能够很好地操作文本文件,下面是要使用到的一些代码指令。Open打开文件以便进行读写。...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 130
精华内容 52
关键字:

vba读写excel文件