精华内容
下载资源
问答
  • 将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据,并自动绘制曲线图!不含任何空间,纯代代码,方便移植。
  • 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
    
    展开全文
  • 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, dat

    展开全文
  • 在word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
  • '-------------------一覧取得----------------------------- Sub getRedmineGrid_Click() Dim wb As Workbook Dim sheet As Worksheet Dim path As String path = ThisWorkbook.path &...
    '-------------------一覧取得-----------------------------
    Sub getRedmineGrid_Click()
        Dim wb As Workbook
        Dim sheet As Worksheet
        Dim path As String
        path = ThisWorkbook.path & "\issues.xls"
        If Dir(path) = "" Then
           FileCopy ThisWorkbook.path & "\back\issues.xls", path
        Else
            FileCopy path, ThisWorkbook.path & "\back\issues.xls"
        End If
        Dim idx As Integer
        idx = 11
        Dim csvWb As Workbook
        Set csvWb = Workbooks.Open(path)
        Set wb = Workbooks("進捗.xlsm")
        Set sheet = wb.Sheets("進捗")
        sheet.Range("B" & idx & ":Z1000").ClearContents
        
        sheet.Range("D6") = Format(Date, "yyyymmdd")
        For Each csvSheet In csvWb.Sheets
            For i = 2 To 100
                If csvSheet.Range("B" & i) = "" Then
                    Exit For
                End If
                If csvSheet.Range("B" & i) <> "#" Then
                    sheet.Range("B" & idx) = csvSheet.Range("B" & i)
                    sheet.Range("C" & idx) = csvSheet.Range("C" & i)
                    sheet.Range("D" & idx) = csvSheet.Range("D" & i)
                    sheet.Range("E" & idx) = csvSheet.Range("E" & i)
                    sheet.Range("F" & idx) = csvSheet.Range("F" & i)
                    sheet.Range("G" & idx) = csvSheet.Range("G" & i)
                    sheet.Range("H" & idx) = csvSheet.Range("H" & i)
                    sheet.Range("I" & idx) = csvSheet.Range("I" & i)
                    sheet.Range("J" & idx) = csvSheet.Range("J" & i)
                    
                    sheet.Hyperlinks.Add Anchor:=sheet.Range("B" & idx), Address:="https://XXXXX/" & CStr(sheet.Range("B" & idx))
                    idx = idx + 1
                End If
            Next
        Next
        
        csvWb.Close
        Kill path
        
        MsgBox "ファイルのデータ取得した。"
        
    End Sub
    
    '-------------------週状態取得-----------------------------
    Sub getLateData_Click()
    
        Dim shetName As String
        Dim sheet As Worksheet
        Dim wb As Workbook
        Dim sysDate As String
        Dim maxRow As Integer
        Dim sheetSample As Worksheet
        
        
        sysDate = Format(Date, "yyyymmdd")
        'sysDate7Befor = Format(Date - 7, "yyyymmdd")
            
        Set wb = Workbooks("進捗.xlsm")
        Set sheet = wb.Sheets("進捗")
        Set sheetSample = wb.Sheets("sample")
        sysDate7Befor = sheetSample.Range("D6")
        shetName = "週(" & sysDate7Befor & "~" & sysDate & ")"
         
         
        maxRow = sheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row
        'Sheet1.Cells.Find("*", , , , xlByColumns, xlPrevious).colum
        
        If SheetIsExist(wb, shetName) Then
        
            Application.DisplayAlerts = False
            wb.Sheets(shetName).Delete
            Application.DisplayAlerts = True
        End If
       
        wb.Sheets("sample").Copy after:=wb.Sheets("進捗")
        ActiveSheet.Name = shetName
        Dim sht As Worksheet
        Set sht = wb.Sheets(shetName)
        sht.Range("D6") = sysDate7Befor & "~" & sysDate
             
        Dim idx As Integer
        Dim startRow As Integer
        Dim rowColor As String
        
        idx = 11
        startRow = idx - 3
        
        For i = idx To maxRow
            If sheet.Range("B" & i) = "" Then
                Exit For
            End If
            
            If Trim(sysDate7Befor) <= dateToStr(sheet.Range("H" & i)) And dateToStr(sheet.Range("H" & i)) <= sysDate Then
                sht.Range("B" & idx) = sheet.Range("B" & i)
                sht.Range("C" & idx) = sheet.Range("C" & i)
                sht.Range("D" & idx) = sheet.Range("D" & i)
                sht.Range("E" & idx) = sheet.Range("E" & i)
                sht.Range("F" & idx) = sheet.Range("F" & i)
                sht.Range("G" & idx) = sheet.Range("G" & i)
                sht.Range("H" & idx) = sheet.Range("H" & i)
                sht.Range("I" & idx) = sheet.Range("I" & i)
                sht.Range("J" & idx) = sheet.Range("J" & i)
                rowColor = ""
                If sht.Range("D" & idx) = "終了" Then
                    rowColor = "back"
                End If
                Call addStyle(sht, idx, startRow, rowColor)
                sht.Hyperlinks.Add Anchor:=sht.Range("B" & idx), Address:="https://XXXXX/" & CStr(sht.Range("B" & idx))
                idx = idx + 1
            End If
        Next
       
        sheetSample.Range("D6") = sysDate
    End Sub
    
    Function dateToStr(str As String)
        dateToStr = ""
        If str = "" Then
            dateToStr = ""
            Exit Function
        End If
        str = Replace(str, "-", "/")
        dateToStr = Split(str, "/")(0)
        
        If Len(Split(str, "/")(1)) < 2 Then
            dateToStr = dateToStr & "0" & Split(str, "/")(1)
        Else
            dateToStr = dateToStr & Split(str, "/")(1)
        End If
        
        If Len(Split(str, "/")(2)) < 2 Then
            dateToStr = dateToStr & "0" & Split(str, "/")(2)
        Else
            dateToStr = dateToStr & Split(str, "/")(2)
        End If
    
    End Function
    
    Function SheetIsExist(wbCheck As Workbook, shtNm As String)
        SheetIsExist = False
        On Error GoTo lab1
        
        Set shetSheet = wbCheck.Sheets(shtNm)
        If shetSheet Is Nothing Then
            SheetIsExist = False
        Else
            SheetIsExist = True
        End If
        Set shetSheet = Nothing
        Exit Function
        
    lab1:
        SheetIsExist = False
    End Function
    

      

    转载于:https://www.cnblogs.com/killclock048/p/9774027.html

    展开全文
  • Public Function GetCellValue(strPath, strFile, strSheet, strA1) If Right(strPath, 1) <> "\" Then strPath = strPath & ... If Dir(strPath & strFile) = "" Then '判断文件是否存在 '文件不存在时产生运行时错
    Public Function GetCellValue(strPath, strFile, strSheet, strA1)
        If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
        If Dir(strPath & strFile) = "" Then     '判断文件是否存在
            '文件不存在时产生运行时错误,此错误会传递给调用此函数的过程
            Err.Raise 12345, "GetCellValue", "No found file"
            Exit Function
        End If
        '调用XLM4.0宏表函数读取指定区域的内容
        '如果指定工作表不存在,返回错误
        GetCellValue = ExecuteExcel4Macro("'" & strPath & "[" & strFile & "]" _
            & strSheet & "'!" & Range(strA1).Address(, , xlR1C1))
    End Function
    

    展开全文
  • VBA读取其他Excel内容

    千次阅读 2020-11-07 22:48:36
    VBA读取其他Excel内容AccessDataBaseEngine安装Excel内容读取 采用Microsoft于2020/8/11新出的AccessDataBaseEngine(Microsoft Access ...打开Excel,点击文件 > 账户 > 关于Excel 查看。下载AccessDataBaseEngi
  • 我们知道使用VBA打开一个电子表格指令,例如指令: Application.Workbooks.Open Filename:= "C:\Excel\Report.xls" 打开位于文件夹C:\Excel里面的文件Report.xls。除了使用专门的应用程序打开文件之外,你如果也想...
  • 打开Excel文件直接读取数据

    万次阅读 2017-10-30 14:28:27
    打开Excel文件直接读取数据
  • 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 <...
  • Excel-VBA文件操作

    千次阅读 2018-10-05 02:16:29
    2、利用VBA文件处理语句来处理文件; 3、利用FileSystemObject对象来处理文件; 4、利用API函数来处理文件。 对于数据库文件,还可以利用ADO+SQL的方法操作,本文不讨论 利用Excel对象自带的方法来操作文件是最...
  • 今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮...
  • Excel VBA 读取其它excel单元格内容详细案例 通过一个按钮读取其它excel表格的内容的方法: 创建一个按钮 在excel表单插入按钮,进入design mode后双击按钮进入宏程序编辑 ``` Private Sub CommandButton3_...
  • 关于vba读取excel文件

    千次阅读 2016-02-26 17:19:34
    关于vba读取文件夹中的xlxs文件,如下代码就可以实现 //下面这段代码只适合文件夹中只有文件而没有其他文件夹的情况 Sub OpenCloseArray() '把文件夹中的文件看成一个数组,遍历数组即可  Dim MyFile As ...
  • VBA技巧】不打开Excel读取数据

    千次阅读 2020-03-26 09:57:07
    换用VBA则可以快速打开后马上复制好,能节省不少时间和精力。 Workbooks.Open可以很方便地打开文件,但是当需要操作的文件过多的时候,状态栏堆满了打开文件也不好看。下面介绍两种不用打开文件就能提取数据的...
  • 上一讲【Excel VBA】利用数组、集合、循环等检查各单位报送情况——每月自动汇总考勤数据实例已经完成了检查各单位报送情况的功能,对已报送单位进行打标,未打标的表示是未报送,催促其报送考勤数据。经过不懈的...
  • 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, ...
  • excel中不打开文件调用其它文件数据(VBA)
  • VBA读写Excel文件报错Debug一、VBA简介二、VBA读写Excel文件参考文档 一、VBA简介 VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。...
  • vba完整的例子,有用户窗口操作,选择文件操作,读取文件,进行逻辑计算,获得结果,输出到excel表中。贪心算法,欧几里得定律。
  • Function CopyAgilent(p) Dim fname As String Dim wb As Workbook Dim strCSV As String Dim xlApp As Object Dim XlBook As Excel.Workbook Dim arr Application.Scree.
  • ExcelApp.Workbooks.Open(文件路径,0,True,5,'密码') 这里很坑,搜了别人的博客,下面这个方法试了N次,都没用。。。 ExcelApp.Workbooks.Open(文件路径,Password='密码.') 可能是我的有毒吧。。。 转载于:...
  • 01、获取打开文件的工作路径和工作名 '====================================================================== '功能: 获取打开文件的工作路径和工作名 '函数名: selectExcelfile '参数1: ThisDirPath 需查找...
  • 经常会遇到网友提问,如何实现在不打开Excel工作簿文件的前提下,读取其中的工作表名称。说实话,我不太理解这个需要应用的场景,但是我相信存在的就是合理的,既然有人提问,可能就有其应用的场景。 常规实现思路是...
  • Excel VBA获取文件大小

    千次阅读 2020-06-08 10:08:05
    如果该文件打开,那么VB将返回该文件最后一个保存时的大小。 假设你想要获取Windows目录下进行配置设置的所有文件的总大小,代码如下: Sub TotalBytesIni() Dim iniFile As String Dim allBytes As Long ...
  • 那在此之前,我们测试一下,从当前excel文件读取数据的简单VBA代码。现在有一个九九乘法表的数据,如下图。 如果我们有两个乘数,需要从九九乘法表里面查找到正确的结果,我们来试试看。 Dim num1 As Integer, ...
  • 利用VBA快速整合多个excel文件

    万次阅读 2019-08-25 15:55:36
    心得(一):关于VBA如何把同一个文件下的所有文件的内容合并到同一个excel文件下 问题:如何把多个格式相同的excel整合到一个excel上,起初想的是可以直接用复制粘贴……但是文件有几百个将近一千个,这么做的话有点...
  • Private Sub CommandButton1_Click()Sub CommandButton1_Click() Call Macro1End SubPrivate Sub CommandButton2_Click()Sub CommandButton2_Click()根据项目名称 获取部门名A8 显示在B8中 c3--c40Dim ...
  • 如下代码:将工作簿 测试(1)的第一个工作表的A1:T10000区域的数据,复制粘贴到工作簿 测试 的第一个工作表的A1:T10000区域 Sub GetData_2() Dim WB As Workbook, WB_1 As Workbook Set WB = Workbooks.Open("C...
  • 问题点: 在日常工作是,有需要批量打印.pdf的需求,但是客户提供的是pdf档,在pdf档的最后一页是关于客户公司的信息,如果...利用这个规则,可以使用如下的vba自定义函数获取pdf文件的总页数”通过他的代码,可以.

空空如也

空空如也

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

vba打开excel文件读取内容