首页 > 其他分享 >vba-函数返回sheet

vba-函数返回sheet

时间:2022-12-06 11:35:15浏览次数:38  
标签:Dim vba Set sheet 函数 Excel xlBook xlApp


'打开文件返回Sheet
Public Function GetSheetByOpenFile() As Worksheet
ifilename = Application.GetOpenFilename("Excel(*.xlsx), *.xlsx, Excel(*.xls), *.xls", False)

If ifilename <> "False" Then
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open(ifilename)
Dim sheet As Excel.Worksheet

Set sheet = xlBook.Sheets(1)
Set GetSheetByOpenFile = sheet
Else
MsgBox "Please select a file first!", vbOKOnly, "Reminder"
Exit Function
End If

On Error Resume Next
Set xlBook = Nothing
Set xlApp = Nothing
End Function

标签:Dim,vba,Set,sheet,函数,Excel,xlBook,xlApp
From: https://www.cnblogs.com/Insist-Y/p/16954735.html

相关文章

  • Gepetto:使用chatGPT来对函数功能进行分析并重命名变量的IDA插件
    最近OpenAI的chatGPT很火,chatGPT是一个大型的语言模型,能够生成人类语言的文本,主要用于对话式的问答和聊天,以及模拟人类的对话行为有关chatGPT的介绍就不多赘述了,相关内容......
  • cv2.resize函数报错:error: (-215:Assertion failed) func != 0 in function ‘cv::hal
    文章目录​​报错​​​​错误代码​​​​解决​​报错在使用cv2.resize()对图片调整大小时遇到了以下错误。img_array=cv2.resize(img_array,(1024,1024))cv2.error:......
  • 利用梯度下降法计算二元函数的最小值
    要真正了解梯度下降法的原理,需掌握的预备知识:导数及偏导数、向量、方向导数和梯度,开始学习起来很抽象,在学习过程,最好以实例和图像的形式来加强理解。本文以二元函数z=x2+......
  • C语言第二课学习笔记--运算符,流程控制和函数
    <7>运算符1)分类:一些基本的运算符分类有:算术、关系、逻辑、赋值算术运算符有:+,-,*,/,%;    对于/被除数和除数都是int则结果是int,有一个是float结果就是float;对于%,被......
  • python函数入门
    1.函数的作用#sum()max()min()len()type()#使用函数都需要加一个括号#有自己的功能#'a'.replace()#称为方法点出来的有括号的称为方法#a.name#称为......
  • 函数
    语法:select函数名()from表名 ifnull函数判断字段或表达式是否为null,如果为null,返回指定值,否则返回原来值ifnull(salary,0)表示如果薪水为null,则返回0,......
  • css attr()函数
    cssattr()函数attr()理论上能用于所有的CSS属性但目前支持的仅有伪元素的content属性,其他的属性和高级特性目前是实验性的CSS表达式attr()用来获取选择到的元......
  • JavaScript——基础知识、函数
    JavaScript——基础知识、函数一、JS简介 JavaScript(简称“JS”)是一种具有函数优先的轻量级,解释型或即时编译型的编程语言。虽然它是作为开发Web页面的脚本语言而出名,但......
  • js:JS简介、JS基础、变量与常量、基本数据类型、运算符、流程控制、函数、内置对象、J
    目录JS简介JS基础变量与常量基本数据类型1.数值类型(Number)2.字符类型(String)3.布尔类型(Boolean)4.null与undefined5.对象(object)运算符流程控制函数内置对象JSON对象R......
  • 【Python】函数和模块的使用
    1.引入函数有如下函数,问有多少组正整数解。\[x_1+x_2+x_3+x_4=8\]相当于把8个苹果分给4个人,每人至少一个,问有多少种分法。进一步等价于在分隔8个苹果的7个空隙之间插......