文章分类 - VBA
摘要：用NPOI导出，读取EXCEL，具有可追加功能 看代码 1 using System; 2 using System.Collections.Generic; 3 using System.Text; 4 using System.IO; 5 using System.Data; 6 using N
阅读全文
摘要：FSO对象是什么鬼？它是用来干什么的？ FSO是FileSystemObject（文件系统对象）的简称，提供了在windows中操作本地文件和文件夹的功能，此对象不光可用在VBA编程中，VC，VB编程语言中也可以实用此对象。 FSO 对象模型可以实现文件（夹）的创建、改变、移动和删除等常见操作，也可
阅读全文
摘要：EXCEL VBA 编程中经常需要对文件进行判断、操作，下面向大家介绍几个常用的文件操作代码。 工具/原料 EXCEL 方法/步骤 1 判断A.Xls文件是否存在 Sub W1() If Len(Dir("d:/A.xls")) = 0 Then MsgBox "A文件不存在" Else MsgBo
阅读全文
摘要：又学了一招，Union方法，嘿嘿。 Option Explicit '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Sel
阅读全文
摘要：万物皆对象，Excel也不例外。平时对Excel的各种操作，其实都是针对某个对象的操作。 那么，Excel中到底有多少个对象呢？很多，多的没有人愿意去统计。 退一步而言，有多少个常用对象呢?如下所示。 Object Type Description Application The current E
阅读全文
摘要：继续学习！ '单元格合并 Sub h1() Range("g1:h3").Merge ' End Sub '合并区域的返回信息 Sub h2() Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域 End Sub '判断是否含合并
阅读全文
摘要：突然有点明白为什么单元格叫做“cell”了，正如细胞是构成生物体的基本单位，单元格就是Excel中存储信息的基本单位。这注定了单元格对象是一个内涵丰富的对象。正如以下代码所示，有很多知识点我也是第一次碰到。看来，主动学习还是很重要的。 Option Explicit '1 单元格的值 Sub x1(
阅读全文
摘要：实际工作中，会碰到各种实际的问题。不会怎么办？可以将一个复杂的问题分解成一个个小问题，逐个解决，美称“divide and conquer”（分而治之）。这里整理的，其实就是“一个个小问题”。记不住没关系，只要你能搜到答案，也算你赢。 Option Explicit '1 已使用的单元格区域 Sub
阅读全文
摘要：代码操作代码，倒是挺高级的。至少在学习C、Java等其他语言时没有这样玩过。 事实上，今天使用VBA删除了待交付文件中的VBA代码，技术水平有了进一步的提高！ 这节的内容感觉挺充实，认真学习，会有收获的。 'VBE对象是根对象，表示在VBA编辑器中存在的所有对象的最上层对象 '一 VBAprojec
阅读全文
摘要：继续学习VBA。在实际工作中，发现用Excel连接Oracle数据库有时有问题： 1. 在Toad中运行良好的脚本，到了Excel query里就有问题了（不知是否因为脚本中包含了一些聚合函数的原因）。 2. 在Excel中连接数据库，刷新数据的速度很慢。Toad中查询数据并导出到Excel用时两分
阅读全文
摘要：目前，实际工作中基本上实在同一个文件内跨多个工作表完成的。下面的跨文件操作用到的不多。 这里别人已经整理好的东西，可以作为参考。 Option Explicit 'excel文件和工作簿 'excel文件就是excel工作簿，excel文件打开需要excel程序的支持 'Workbooks 工作簿集
阅读全文
摘要：我们主要使用VBA中的Dir方法来判断文件是否存在。 Dir函数返回的是文件名、目录名或文件夹名称。 这里还使用了Len方法判断Dir是否返回了结果。 如果Dir返回的值长度为0，则Dir没有返回文件名。 Sub Run() Dim filePath As String filePath = "C:
阅读全文
摘要：Sub 按钮3_Click() Dim fileName As StringfileName = "C:\recsFn.txt"If Dir(fileName) = "" Then '文件不存在Debug.Print "文件不存在";ElseDebug.Print "文件存在" End If End
阅读全文
摘要：有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能： Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExitIf Not
阅读全文
摘要：Dir[(pathname[,attributes])] 构建测试环境如下： 一、测试在dir函数中使用通配符来查找多个文件，在VBE中输入代码如下： Sub ListFiles() Dim strPath As String, strTmp As String strPath = "c:\test
阅读全文
摘要：第1.12例 Dir函数一、题目： 要求编写一段代码，运用Dir函数返回一个文件夹的文件列表。二、代码：Sub 示例_1_12() Dim wjm wjm = Dir("C:\WINDOWS\WIN.ini") MsgBox wjm wjm = Dir("C:\WINDOWS\*.ini") wjm
阅读全文
摘要：以下是从Excel导入到Access的代码： Private Sub cmd_ImportData_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim cnStr1 As String, rsStr As String c
阅读全文
摘要：时 间:2018-02-06 23:05:58作 者:mabaor ID：416 城市：青铜峡摘 要:因为一个导出功能的需要,查阅了好多的案例,正好发现在OFFICE-中国有这样一个很好的帖子,收藏下来,以供以后学习查阅,也供其它朋友收藏使用正 文: Access vba有各种方法可以导出到Exce
阅读全文
摘要：1、将access中数据导入excel Public Sub ImportData() Dim mydata As String, mytable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Records
阅读全文
摘要：【例1】使用Connection的Execute的方法 数据库格式: Sub test() Dim conString$, sqlString$ Dim cnn, rst Set cnn = CreateObject("ADODB.Connection") Set rst = CreateObjec
阅读全文
浙公网安备 33010602011771号