精华内容
下载资源
问答
  • vba打开指定excel文件
    千次阅读
    2021-11-16 09:56:34
    Sub key()
        Dim Path As String
        Dim File As String
        Dim WB As Workbook
            Application.ScreenUpdating = False '冻结屏幕,打开各个文件及关闭时屏幕不会晃瞎你的狗眼
            Path = "c:\temp\" '把目标文件夹路径赋值给变量,这里的路径可以自己改
            File = Dir(Path & "*.xlsx") '一次找寻路径中的excel文件,这里到底是.xlsx还是.xls,可以自己改
            Do While File <> "" '当指定路径中由文件时进行循环
                Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
                Call 你的具体操作宏 '调用你的另一端对每个excel文件进行具体操作的宏,也可以直接写到这个宏中
                File = Dir '找寻下一个excel文件
            Loop
            Application.ScreenUpdating = True '解冻屏幕,让屏幕恢复正常刷新。和上面的那一句成对使用
    End Sub

    更多相关内容
  • 打开一个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

    评论

    展开全文
  • VBA下弹框打开excel文件并读取数据

    万次阅读 2017-05-02 11:24:59
    Sub LoadExcelData() Dim wkbk As Workbook '定义一... Dim myFileName As String '定义要读取的文件路径 Dim dataRow As Integer '定义数据的行 Dim dataColumn As Integer '定义数据的列 Dim rgRC As String '读

    话不多说,直接上代码:

    Sub LoadExcelData()
        Dim wkbk As Workbook  '定义一个工作薄
        Dim myFileName As String '定义要读取的文件路径
        Dim dataRow  As Integer '定义数据的行
        Dim dataColumn As Integer '定义数据的列
        Dim rgRC As String '读取的单元格内容(dataRow,dataColumn)
        Dim arr(3 To 10, 1 To 9) As String '定义一个二维数组
       ' myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsx), *.xls")  '浏览文件,如XX公司17年XX表.xls
        If myFileName = "False" Then  '如果按取消那么弹出对话框
            'MsgBox "请选择文件!", vbInformation, "取消"
        Else
        Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件
     
            wkbk.Activate '激活打开工作簿
                    
            For dataRow = 3 To 10  '设置行的范围
                For dataColumn = 1 To 9   '设置列的范围
                    Sheets("sheet1").Activate
                    rgRC = Cells(dataRow, dataColumn)   '取得
                  arr(dataRow, dataColumn) = Cells(dataRow, dataColumn)
               Next dataColumn
            Next dataRow
            
            Sheets("Sheet3").Activate
            wkbk.Close False '关闭工作薄
            For dataRow = 3 To 10
                For dataColumn = 1 To 9
                   Cells(dataRow, dataColumn) = arr(dataRow, dataColumn)
                Next dataColumn
            Next dataRow      
        MsgBox "数据导入成功!"  
       End If
    End Sub

    展开全文
  • VB/VBA调用EXCEL和WORD文件,并操作、修改,增加文件中的内容
  • VBA读取excel文件

    千次阅读 2020-09-23 21:18:43
    Option Explicit Sub 筛选并合并至新表格() Dim wb As Workbook Dim tongji As Workbook Dim shaixuan As Worksheet Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\...
    Option Explicit
    
    Sub 筛选并合并至新表格()
        Dim wb As Workbook
        Dim tongji As Workbook
        Dim shaixuan As Worksheet
        Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\CheckResult_200_NR参数核查导入模板_V3运营商基线_泉州网管_20200922151142.csv")
        Set tongji = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输出报表\SA参数核查统计-0922.xlsx")
        
        Set shaixuan = wb.Worksheets(1)
        MsgBox (shaixuan.Cells(2, 2))
        '如果满足条件,则
        'If shaixuan.Cells(2,5)=tongji.Cells(5,3) and (shaixuan.Cells(2,6)<-108 OR shaixuan.Cells(2,6)>-100)
        'Then 对应的地市+1
        End If
        
        
    End Sub
    
    展开全文
  • Excel VBA打开指定字符开头的文件

    千次阅读 2021-10-23 08:17:04
    桌面上只有一个此类文件,此时可以通过以下代码自动打开文件。 代码中关键在于使用myfile Like "abc*"进行匹配。 Sub OpenFileStartWithabc() mypath = "C:\Users\Administrator\Desktop\" myfile = Dir(mypath...
  • 因为工作需求,要把Excel中的数据写入到指定的word文件里(用链接的方式经常会出现word无响应的状况,而且数据量大的时候,打开速度实在太慢。),所以就研究了一下如何判断word文件是否被打开的情形。参考了一些...
  • 检查当前是否打开了特定的 excel 文件,如果是,则将其最大化以通知用户。 这个简单的函数可以在更复杂的函数中使用,以检查当前正在运行的 excel 工作簿,如果它们没有做某事,反之亦然。
  • VBA打开已加密的Excel文件

    千次阅读 2014-03-13 16:23:26
    Excel文件名为excelFileName,密码为123 如果用Application.Workbooks.Open excelFileName方式打开的话,会弹出一个需要输入密码的对话框,这显然是我们不愿意看到的。 查看过Application.Workbooks.Open帮助文档...
  • excelvba操作文件

    千次阅读 2021-12-16 09:25:16
    vba文件操作
  • 通过excel VBA代码中的application.getopenfilename打开选择文件窗口,通过MultiSelect:=True参数允许同时选择多个文件,通过定义变量X,将选择的文件名(含路径赋值给X,后指定每个X1在变更集X中,)如何实现通过VBA...
  • OpenExcel 是一种命令行实用程序,它提供了打开一个或多个 Excel 文件、等待指定秒数然后关闭工作簿的功能。 另一种选择是使用 TASKKILL,但是这种方法会关闭 Excel 的所有实例。 OpenExcel 的优点是它只关闭特定的...
  • VBA汇总excel文件

    2020-12-02 01:00:40
    VBA 汇总指定文件夹中的工作簿中的“结算情况”表 Option Explicit Sub zhantie() Dim start start = Timer Dim mypath As String, myname As String '遍历文件夹内工作簿 Dim hangshu As Long, N As Integer, ...
  • Office Excel VBA-文件检索
  • Excel(WPS)使用VBA,不打开文件情况下提取其他工作簿数据提取函数,返回提取到的值使用示例 在不打开工作簿的情况下,VBA读取其他工作簿数据 很多方法需要打开才能提取,... ' 从未打开Excel文件中检索数据 Dim a
  • VB自动打开EXCEL带有密码的文件跳过宏
  • 今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮...
  • Excel VBA - 文件打开或关闭相关

    万次阅读 2011-11-01 13:00:26
    →实现标准的“打开”对话框,并获取用户文件名,而不必真正打开任何文件。获取文件的FullName 表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect) FileFilter:过滤文件Title:标题...
  • 通过vba函数,为指定Excel文件添加“打开文件密码”。
  • 目录 码1 Application.GetOpenFilename方法 ...遍历通过FileDialog对象选择的文件 Application. GetSaveAsFilename方法 Application. Dialog对象 码1 使用Application.GetOpenFilename方...
  • EXCEL-VBA:弹出对话框,打开文件指定扩展名)
  • ExcelVBA之删除文件步骤

    千次阅读 2020-06-08 11:25:01
    要从文件夹里面删除文件的话,可以使用下面的Kill语句: Kill 文件路径名 文件路径名明确一个或多个你要删除的文件的名称,随你意,也可以将驱动器和文件夹名称包括在里面。你可以在文件路径名参数里使用通配符...
  • Excel VBA 打开超链接

    千次阅读 2021-05-12 11:14:39
    VBA打开超链接 文件超链接 Cells(x, y).Hyperlinks(1).Follow 网址超链接 URL = Cells(x, y).Hyperlinks(1).Address Set wshshell = CreateObject(“wscript.shell”) wshshell.Run hyper_link & URL
  • Public Function GetCellValue(strPath, strFile, strSheet, strA1) If Right(strPath, 1) <> "\" Then strPath = strPath & ... If Dir(strPath & strFile) = "" Then '判断文件是否存在 '文件不存在时产生运行时错
  • Excel VBA获取选择文件文件名称

    千次阅读 2020-10-20 10:50:20
    Dim File As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 ... File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件对话框 If File <...
  • (ByVal lpszFile As String) As Long #End If Sub url_dowmload() '下载url链接的文件,保存路径已存在会覆盖文件,网页文件下载为htm与“另存为”一致 Dim url As String, save_path As String, isdown As Long, ...
  • Excel·VBA模板生成文件

    2022-04-24 22:42:06
    不同于《python实现Excel邮件合并》,字符串内容替换生成文件,仅复制整行数据插入模板中生成工作表,单独保存为工作簿,但如果存在同名工作簿文件,则将工作表附加在该工作簿中 Sub 模板生成工作薄() Application....
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    .................................................................................................................1 1.1 VBA是什么...........................................................................

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,163
精华内容 1,665
关键字:

vba打开指定excel文件

友情链接: cthqpdf.zip