精华内容
下载资源
问答
  • (3KB) 70,showicon.ZIP 显示文件图标(3KB) 71,cntlines.ZIP 得到指定文本文件的行数(1KB) 72,fileinfo2.ZIP 显示文件信息 (13KB) 73,findfiles.ZIP 使用递归算法指定目录下查找文件 ...
  • 复制每一个excel里的数据,合并到一个excel操作步骤将要合并的文件放在同一文件夹下,复制过来就好(ps:最好不要直接操作原数据文件,避免操作失败,数据丢失)这个目录下创建一个“合并.xlsx”双击打开“合并.xlsx...

    Excel多表合并之vba实现

    需求

    保留列名,复制每一个excel里的数据,合并到一个excel

    操作步骤

    将要合并的文件放在同一文件夹下,复制过来就好(ps:最好不要直接操作原数据文件,避免操作失败,数据丢失)

    在这个目录下创建一个“合并.xlsx”

    双击打开“合并.xlsx”

    同时按 ALT + F11

    出现下图,按图中文字操作即可完成合并

    完成

    附录代码

    Sub合并当前目录下所有工作簿的全部工作表()DimMyPath, MyName, AWbNameDim Wb As Workbook, WbN As String

    Dim G As Long

    Dim Num As Long

    Dim BOX As Stringflag= 0Application.ScreenUpdating= FalseMyPath=ActiveWorkbook.Path

    MyName= Dir(MyPath & "\" & "*.xls")

    AWbName=ActiveWorkbook.Name

    Num= 0

    Do While MyName <> ""

    If MyName <> AWbName Then

    Set Wb = Workbooks.Open(MyPath & "\" &MyName)

    Num= Num + 1

    With Workbooks(1).ActiveSheetFor G = 1 ToSheets.CountIf flag = 0 ThenWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row , 1)

    flag= 1

    ElseWb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)End If

    NextWbN= WbN & Chr(13) &Wb.Name

    Wb.CloseFalse

    End With

    End IfMyName= Dir

    LoopRange("A1").Select

    Application.ScreenUpdating= True

    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

    End Sub

    合并多个excel每个excel有多个sheet,每个sheet单独合并,代码如下

    Sub 合并当前目录下所有工作簿的全部工作表()

    Dim MyPath, MyName, AWbName

    Dim Wb As Workbook, WbN As String

    Dim G As Long

    Dim Num As Long

    Dim BOX As String

    flag = 0

    Application.ScreenUpdating = False

    MyPath = ActiveWorkbook.Path

    MyName = Dir(MyPath & "\" & "*.xls")

    AWbName = ActiveWorkbook.Name

    Num = 0

    Do While MyName <> ""

    If MyName <> AWbName Then

    Set Wb = Workbooks.Open(MyPath & "\" & MyName)

    Num = Num + 1

    For G = 1 To Wb.Sheets.Count

    If flag = 0 Then

    Sheets.Add after:=Sheets(Sheets.Count)

    With ActiveSheet

    .Name = Wb.Sheets(G).Name

    Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)

    .UsedRange.Rows.AutoFit

    .UsedRange.Columns.AutoFit

    End With

    Else

    With Workbooks(1).Worksheets(G + 3)

    ' MsgBox .Name & "--" & Wb.Sheets(G).Name

    If G = 2 Then

    Wb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 2, 1)

    Else

    Wb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

    End If

    .UsedRange.Rows.AutoFit

    .UsedRange.Columns.AutoFit

    End With

    End If

    Next

    'flag 为0时候为第一个打开的excel,此时产生列,sheet名

    flag = 1

    WbN = WbN & Chr(13) & Wb.Name

    Wb.Close False

    ' End With

    End If

    MyName = Dir

    Loop

    Range("A1").Select

    Application.ScreenUpdating = True

    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

    End Sub

    展开全文
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    还演示如何不必编写代码的情况下创建数据绑定窗体,以及如何连接到数据库文件 ObjectBinding:演示如何将控件绑定到数据库组件以外的对象 OCS:演示如何使用 Microsoft Synchronization Services for ADO.NET ...
  •  2:将目录database下的XYGLXT.mdf和XYGLXT_log.ldf文件拷贝到SQL Server 2000的“MSSQL”->“data”目录下.  如果没有安装Sql Server,请先安装Sql Server,安装SQL SERVER 2000数据库时,身份安全验证机制选项中...
  • VBA实现当文件夹不存在时自动创建

    千次阅读 2019-09-19 16:26:26
    假设我们要实现的功能是D盘根目录下创建vbatest文件夹,可以看到,当前文件夹是不存在的: 我们在vb代码编辑器里输入下面的代码: Sub dir() Dim myDir As String myDir = "D:\vbatest" On Error Resume Next ...

    VBA也可以很方便的实现文件操作。本文主要实现当文件夹不存在时,自动创建文件夹的功能。
    假设我们要实现的功能是在D盘根目录下创建vbatest文件夹,可以看到,当前文件夹是不存在的:
    在这里插入图片描述
    我们在vb代码编辑器里输入下面的代码:

    Sub dir()
        Dim myDir As String
        myDir = "D:\vbatest"
        On Error Resume Next
        mkdir myDir
    End Sub
    

    F5执行,即可成功创建 文件夹,如下图所示:
    在这里插入图片描述

    展开全文
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (4KB) 37,telnet.ZIP 一个只使用Winsock控件实现的Telnet程序(39KB) 38,cnetworkinfo.ZIP 一个Windows NT/2000的程序。这个程序可以获得当前登陆的网络用户名、工作站ID、IP地址等信息。(5KB) ...
  • 例如,进行网站重组而将 /people/ 目录下的所有网页移动到 /info/employees/ 目录中时,您可能希望使用 URL 重写来检查 Web 请求是否指向了 /people/ 目录中的文件。如果请求指向 /people/ 目录中的文件,您可能...
  • 将工程文件保存某一目录下并给予文件名。此时弹出主编辑窗口,如图1。  2.单击右边的“选项”按钮,弹出的对话框中我们可以设置文件的属性。包括文件标题、压缩率、排序、各种文件信息、搜索支持、宏定义、...
  • ASP.NET的网页代码模型及生命周期

    热门讨论 2009-07-28 14:22:11
    创建一个单文件页模型,文件】按钮中选择【新建文件】选项,弹出对话框中选择【Web窗体】或右击当前项目,下拉菜单中选择【添加新建项】选项即可创建一个.aspx页面,如图4-2所示。 图4-2 创建文件页...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码,...
  • 实例158 获取已打开文件中的读写位置 实例159 判断变量是否被初始化 实例160 获取文件创建或修改日期 实例161 自定义错误号 实例162 获取当前打开窗口数量 实例163 随机获取姓名 实例164 防止连续出现多个...
  • DirectX修复工具 V3.2增强 绿色版

    万次下载 热门讨论 2014-07-01 10:06:43
    游戏将本程序内嵌 即可进行无需人工参与的快速修复 开启简约模式的方法是:打开程序所在目录下的“Settings ini”文件(如果没有可以自己创建) 将其中的“FormStyle”一项的值改为“Simple”并保存即可 ...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码...
  • DirectX修复工具 V3.0 官方绿色增强版

    万次下载 热门讨论 2013-09-21 12:03:30
    开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复...
  • Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系...
  • Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系...
  • 使用ObjectDBX实现的批量文字替换,与上一个版本比较起来,修正了一些Bug,并且是不打开文件的情况完成操作的,速度有了明显的提高。 第6章介绍了标注和公差的使用。新的圆弧长度标注程序涉及到多行文字格式代码...
  • 安装说明:将插件dll和.AddIn配置文件放入到Visual studio 2008应用目录(默认是 我的文档\Visual Studio 2008 (或者2005、2010))的Addins目录下。如果没有Addins目录,则自己创建一个。最后,重新启动Visual ...
  • Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码,...
  • 此项目允许您去选择 [ENABLED],以让您DOS环境可以使用USB鼠标,或是选择 [OS] 以OS环境使用。默认情况是关闭的即:[DISABLED],只有打开DOS才可以用。 AC97 Audio 这个选项开启或关闭集成声卡...
  • DirectX修复工具 V3.0标准版

    千次下载 热门讨论 2013-09-26 20:20:15
    开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复...
  • DirectX修复工具 V3.3标准 绿色版

    万次下载 热门讨论 2015-05-03 09:43:18
    开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复...
  • 实例217 将硬盘文件目录转为数据库数据 384 实例218 将数据库文件转换为文本文件 386 实例219 将数据库数据传给Excel 388 实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 ...
  • 实例217 将硬盘文件目录转为数据库数据 384 实例218 将数据库文件转换为文本文件 386 实例219 将数据库数据传给Excel 388 实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 ...
  • QTP下载链接.txt

    2020-08-17 09:04:43
    QTP提供三种类型的调用方式:a)call to new Action,在当前test中创建一个新的Action;b)call to Copy of Action;c)call to existing action,调用一个re-usable action,如果这个re-usableaction来自另外一个...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    3:可以不下载ZIP.RAR.ISO文件的情况查看文件里面的目录文件. 4:支持多语言. 5:操作综合其它软件. 6:自定义快捷键. 7:IE工具栏上加按钮,可以直接拖动连接到按钮上下载. 8:注册采用激活方式. 9:采用Messenger的...

空空如也

空空如也

1 2 3
收藏数 51
精华内容 20
关键字:

vb在当前目录下创建文件