三九宝宝网宝宝百科健康成长

怎么用VBA自动获取当前工作簿不带后缀名的工作簿名称

01月04日 编辑 39baobao.com

[总结如何做好收费站新职工的心理疏导工作]来到衡大高速工作已经有十个多月的时间了,每天都是紧张繁忙的工作。刚开始在收费站工作时,工作之余我也和同事们交流谈心。现在的职工大多是90后青年,有的还是第一次参加工作,看...+阅读

给你写写:

Sub aaa()

'获取当前工作簿不带后缀的名称

A = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)

'另外一个文件夹,假设是c盘下文件夹aa,你自己改

path1 = "C:\aa\"

'取得日期,将日期中的/变成.

dat = Replace(Date, "/", ".")

ThisWorkbook.SaveAs path1 & A & Date & ".xls"

End Sub

以下为关联文档:

在两个excel表中要在两个工作表中把相同的姓名提取出来要用哪些两个EXCEL工作表中有若干个相同的姓名,要提取出这些相同的姓名,需要怎么做? 是否将重名的找出来,放在一个指定区域? 比如两个EXCEL工作表SHEET2(姓名在A列的A2-A100),SHEET3(姓名在A...

身体健康状况请问在加油站工作对身体健康有什么处呢汽油内一般都含有铅,长期接触铅对人体有毒性作用,应加强劳动防护。指导意见首先,加油站里的油主要成分是汽油,所以要了解汽油对人体的危害。汽油主要用于交通运输工具的动力燃料...

工作证明西语求翻译落款:证明人姓名和日期今有我公司员工吴博远,于2015年3月16日---2016年9月1日在我公司:佛山浩传有限公司温州分公司担任信控员一职 This is my company employees Wu Boyuan, in March 16, 2015 ---...

幼儿园卫生保健工作的内容涉及哪些方面幼儿园卫生保健方面首先一个就是14项本的记录。 (一)晨检及全日健康观察登记册 (二)班级交接登记册 (三)健康教育与家长联系 (四)预防疾病药物使用登记册 (五)肥胖儿童登记册 (六)家长联...

电脑经常出现 TODO已停止工作是怎么回事是病毒还愿我的答案 能够解决您的烦忧 可能是病毒破坏了什么软件导致的吧,看提示重新下载一个软件,然后杀毒 可以使用腾讯电脑管家,对电脑首先进行一个体检,打开所有防火墙避免系统其余...

怎么用Excel以姓名给工作表排序给你一段excel home里面的代码,你自己研究一下吧。 Sub 工作表标签排序() Dim i As Long, j As Long, nums As Long, msg As Long msg = MsgBox("工作表按升序排列请选 '是[Y]'....

如图所示是家用饮水机的工作原理电路其中S是温度控制开关当(1)由电路图可知,当开关处于“2”挡时, 只有电阻R0接入电路,电阻R被短路,通过电阻R的电流为零, 通过电阻R0的电流I0= U R0 = 220V 44Ω =5A; (2)由电路图可知,开关置于“1”时,两电...

vba下如何在不打开文件的情况下读取excel的工作表的名称帮我不打开是不行的,至少得用代码打开。 sub test() dim mary(1 to 1024,1 to 1),k as long,myFile as string dim wb as workbook,sh as workSheet myFile="D:\我的Excel文件.xls"...

如何利用VBA获取指定工作簿中的工作表名称获取指定的工作簿中工作表名称而非本工作簿中表的名称,下面的代码可以使用: Sub 提取name() Dim wk As Workbook Dim sh As Worksheet Dim rw As Byte Set wk = Workbooks.Ope...

推荐阅读
图文推荐