精华内容
下载资源
问答
  • '-------------------一覧取得----------------------------- 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

    展开全文
  • 在word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
  • 打开一个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内容

    2020-11-07 22:48:36
    VBA读取其他Excel内容AccessDataBaseEngine安装Excel内容读取 采用Microsoft于2020/8/11新出的AccessDataBaseEngine(Microsoft Access ...打开Excel,点击文件 > 账户 > 关于Excel 查看。下载AccessDataBaseEngi


    采用Microsoft于2020/8/11新出的AccessDataBaseEngineMicrosoft Access 2016 数据库引擎可再发行程序包)在VBA中读取Excel内容。

    AccessDataBaseEngine安装

    如何选择安装32位或64位AccessDataBaseEngine?打开Excel,点击文件 > 账户 > 关于Excel 查看。下载AccessDataBaseEngine并安装。AccessDataBaseEngine资源、及详细安装信息参见Microsoft官网

    Excel内容读取

    • 打开Excel保存格式选择为xlsmAlt + F11打开VBA,新建模块(Module)。
    • 点击工具 > 插入 > 引用找到Microsoft ActiveX Data Objects 6.1,目的使代码编写时有题词功能,当然CreateObject方法也可以使用。
    Public Sub ExcelReader
        Dim cnn As New ADODB.Connection
        Dim rst As ADODB.Recordset
        Dim path As String
        Dim row As Integer
        
        '被读取的Excel文件路径
        path = Environ("userprofile") & "\Desktop\InputExcel.xlsx"
        cnn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & path
        
        '可在"$"后添加具体读取范围
        '例如"SELECT * FROM [Sheet1$A1:Y180]"
        Set rst = cnn.Execute("SELECT * FROM [Sheet1$]")
        
        '显示列名(读取范围的第一行)
        row = 1
        For i = 1 To rst.Fields.Count    
        	Cells(row, i) = rst(i - 1).Name
        
        Next
        
        '显示所有数据
        While Not rst.EOF
         	row = row + 1
         	
           	For i = 1 To rst.Fields.Count	    
       		Cells(row, i) = rst(i - 1)
        
       	 Next
        
        	rst.MoveNext
        Wend
        
        rst.Close
        cnn.Close
    End Sub
    

    最后回到刚保存的xlsm文件调用VBA,点击开发工具 > > 选择ExcelReader > 执行(没有开发工具选项可在文件 > 选项 > 自定义功能区 > 勾选开发工具 > 确定)。或者插入按钮绑定事件,点击即可。

    展开全文
  • 我们知道使用VBA打开一个电子表格指令,例如指令: Application.Workbooks.Open Filename:= "C:\Excel\Report.xls" 打开位于文件夹C:\Excel里面的文件Report.xls。除了使用专门的应用程序打开文件之外,你如果也想...

    我们知道使用VBA打开一个电子表格指令,例如指令:
    Application.Workbooks.Open Filename:= "C:\Excel\Report.xls"

    打开位于文件夹C:\Excel里面的文件Report.xls。除了使用专门的应用程序打开文件之外,你如果也想要创建VBA过程能够打开其它类型的文件并使用它们的内容的话,你就应该学习一些关于被称为低级别的文件I/O(input/output)。

    接下来关于顺序,随机和二进制文件的章节将会带你直接接触你的数据。

    文件的访问类型

    计算机使用的文件类型有三种:

    ①顺序访问文件是指按储存相同的顺序找回数据的文件。例如以CSV格式(逗号分割文本),TXT格式(以Tab键分割的文本)或者PRN格式(以空格分隔的文本)储存的文件。顺序文件访问经常用来写文本文件,例如错误日志,参数设定和报告。顺序文件有下列模式:Input,Output和Append。模式决定了文件打开后你如何使用它。
     

    ②随机访问文件是文本文件,它的数据以同等长度储存并在一个以逗号分割的区域了。随机访问文件只有一个模式——Random
     

    ③二进制访问文件是图形文件和其它非文本文件。二进制文件只能够在Binary模式下访问。

    展开全文
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。 在Modules文件夹下的csMain文件中,写下如下VB格式的代码:
  • Excel_VBA 逐行读取文件

    2012-09-28 12:14:27
    使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容: Line Input #filenumber, variableName #filenumber是用Open语句打开文件时使用的数字,variableName是个String或者Variant变量,用来储存...
  • VBA读取word中的内容Excel

    千次阅读 2019-06-28 15:53:00
    VBA读取word中的内容Excel中,这类代码的思路都是一致的,包括ADO、SQL、DELPHI、VB…… 先声明、创建一个对象 → 用此对象打开需要操作的文件、数据库 → 从头到尾循环一遍做某事 → 关闭文件 → 关闭对象 → ...
  • 学习Excel技术,关注微信公众号:excelperfect文本文件是一种常用的文件格式,使用文本文件读取和存储信息不仅快而且简单。VBA能够很好地操作文本文件,下面是要使用到的一些代码指令。Open打开文件以便进行读写。...
  • 第3行的代码,在Excel中要读取Word文档的内容,需要创建Word对象,就相当于你启用Word软件第6行的代码,变量j标记行,初始值赋值为1第7行的代码,启用文件对话框第9行的代码,设置文件对话框可以多选第11行的代码,...
  • VBA 读取/写入文本文件

    千次阅读 2014-08-28 16:44:55
    VBA 读取/写入文本文件  2011-06-28 10:53:58| 分类: Excel自动化 | 标签:读入 文本  |举报 |字号 订阅 1、Open 语句  打开方式有  Input:以读取方式打开。 Output:以写入方式...
  • 有一些项目中,偏好用excel进行数据收集和品质管理等。...但是一个一个打开文件未免过于麻烦。怎么办。很多时候我们只是查看每个文件的固定位置的内容。针对这类问题,我觉得有必要设计一个VBA工具来辅助我们轻...
  • 学习Excel技术,关注微信公众号:excelperfect文本文件是一种常用的文件格式,使用文本文件读取和存储信息不仅快而且简单。VBA能够很好地操作文本文件,下面是要使用到的一些代码指令。Open打开文件以便进行读写。...
  • 1 最直接的办法,应该是把 TXT 文件拖入到EXCEL,或用EXCEL打开? 2先把1个TXT读入进来 3把多个TXT读入到EXCEL的多个 SHEET 第1版 找网上的代码学习自己魔改了一下,还有不少问题 错误1:又忘了变量赋值和...
  • 问题:在使用Delphi7操作Excel文档时,当文件直接用excle打开时提示“发现不可读取内容,是否恢复此工作簿的内容?如果信任此工作簿的来源,请单价是”。此时点击“是”,可以打开,再保存后打开就正常,不再提示...
  • 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度...
  • 2 批量读取text文本到excel

    千次阅读 2018-12-10 12:12:40
    1 01 使用VBA程序打开文本文件 2 读取一行内容 3 判断是否已经到末尾 4 关闭文本文件 二、案例 f=dir(“d:\demo2\”) 以反斜杠“\”结尾代表文件夹,否则会被当做一个文件,即demo2 文件 ### 成功案例 ...
  • 说明:默认自动读取 plugin.txt 的内容,该文件的默认内容为离线版插件,根据需要选择在线版内容进行覆盖。 方式二: 根据需要打开对应的「插件文件」,全选所有内容,并复制 在线版插件(自动在线更新):...
  • 压缩包里有个excel文件,演示的例子是读取当前打开的记事本的内容然后关闭它。需要先打开任意一个记事本文件。 相关代码: Sub 按钮1_Click() Dim w As New clsWindow Range("A1") = w.GetWindowByTitleEx(...
  • 使用ObjectDBX实现的批量文字替换,与上一个版本比较起来,修正了一些Bug,并且是在不打开文件的情况下完成操作的,速度有了明显的提高。 第6章介绍了标注和公差的使用。新的圆弧长度标注程序涉及到多行文字格式代码...
  • VB6.0 CSV文件

    2009-12-13 20:26:59
    功能:读取CSV文件内容并导入到数据库中环境:Access2003 语言:VBA(对于使用VB6.0同样适用)数据库:D:\db1.mdb数据表:test userId 数值型 userName 文本型CSV文件:D:\test.csv (使用Excel...
  • 解决方法是:打开EXCEL选项==>加载项==>管理(禁用项目)转到==>启用已禁用项目.==>重启EXCEL==>OK. 或者将原安装目录中的文件全部删除,再安装到另外一个不同的文件目录也可以.或者查阅...
  • aspnet公共类cs文件.rar

    2020-07-16 11:07:28
    Excel操作辅助类(无需VBA引用)(ExcelHelper.cs)利用VBA对象,导出DataView到一个Excel文档中的Excel辅助类(Export2Excel.cs)关联文件(ExtensionAttachUtil.cs)注册文件关联的辅助类(FileAssociationsHelper.cs...
  • 经常需要将很多Excel表格的数据内容进行合并处理,这里我放上来一个案例,并提供2种通过VBA代码实现的方式。...1、打开Excel文件直接读取 1 Sub CombineFiles() 2 Dim excelApp As Excel.Applic...
  • 可用数据文件(能被Excel 97打开);Oracle 8.1.x表格空间文件 DBX:DataBearn图像;Microsoft Visual FoxPro表格文件 DCT:Microsoft Visual FoxPro数据库容器 DCU:Delphi编译单元文件 DCX:Microsoft Visual...
  • 9.打开、保存文件对话框操作辅助类(FileDialogHelper.cs) 10.常用的文件操作辅助类FileUtil(FileUtil.cs) 11.INI文件操作辅助类(INIFileUtil.cs) 12.独立存储操作辅助类(IsolatedStorageHelper.cs) 13.序列号...
  • WHC第三方控件

    2018-07-16 12:51:42
    9. 打开、保存文件对话框操作辅助类(FileDialogHelper.cs) 10. 常用的文件操作辅助类FileUtil(FileUtil.cs) 11. INI文件操作辅助类(INIFileUtil.cs) 12. 独立存储操作辅助类(IsolatedStorageHelper.cs) 13. ...

空空如也

空空如也

1 2
收藏数 32
精华内容 12
关键字:

vba打开excel文件读取内容