经核实吧主分享你我他ing 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 分享之家吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

1.打开固定路径下的文件 Workbooks.Open Filename:=" D:\123\1.xls" ‘打开D盘123文件夹下的1.xls文件 1.2利用控件来打开 Workbooks.OpenText Filename:=UserForm1.CommandButton1.ControlTipText 目前仅总结这两个分类的，如果大家有其他方法，请跟帖，共同学习。

分享的快乐，你知道吗？

由于工作需要，自学VB，要写一个查询工具，具体需求如下，希望大家多给点指点 1.数据库放在网络盘中，用软体可以同时访问并修改 2.软体包含查询、帐号登录、增加记录、删除记录、修改记录、修改帐号密码等功能 具体解释待补充。。。。 希望大家对其中的一些功能给点指点。。。

一个人的力量实在是太渺小了，时间总是不够用

好久没回家了

幸福的日子

vba中用控件将打开的文件位置显示在textbox中 代码如下： Private Sub CommandButton1_Click() UserForm1.CommandButton1.ControlTipText = Application.GetOpenFilename("请选择,*.txt") Dim bb bb = UserForm1.CommandButton1.ControlTipText TextBox1.Value = bb UserForm1.Hide UserForm1.Show End Sub (请选择,*.txt")这里是默认的txt文件，如果是其他的，请将txt换成相应的后缀名就可以了

最近比较忙，分享的东西比较少 其实也可以随便分享一些，不过我感觉那样就有点对不住大家了 也不是我的初衷 等忙了这一阵，慢慢分享给大家一些好东西吧

打开excel，让宏自动运行，就会出现如下界面，界面中所用到的都是自己理解后的语句，小小成就拿来跟大家分享一下

一楼留名

用VBA提取打开的非excel文档名称，不含路径 代码如下： Sub test() Range("A1").Select ActiveCell.FormulaR1C1 = "=CELL(""FILENAME"")" Range("B1").Select ActiveCell.FormulaR1C1 = "=LEN(A1)" Range("C1").Select ActiveCell.FormulaR1C1 = "=FIND(""\"",A1)" Range("D1").Select ActiveCell.FormulaR1C1 = "=ISERROR(C1)" Range("A2").Select ActiveCell.FormulaR1C1 = "=RIGHT(A1,B1-C1)" Do While Range("D1").Value = False Range("A2").Select Selection.Copy Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Loop End Sub A1中就

第二讲：VB主窗口的组成（1）

第二讲：VB主窗口的组成（2）

第二讲：VB主窗口的组成（4）

第一讲：VB的启动与退出 http://tieba.baidu.com/p/1750282008

如题

今天创建属于我们知道团队的贴吧,大家可以在这里互相学习,互相交流 此吧为大家提供一个学习交流的平台,希望大家多多分享自己的经验与知识

周一给自己放个小假，整理下自己的东西，稍后分享给大家

此处所分享的内容都是个人在平时用到或是自己学**结的，也都是自己理解之后，才拿来跟大家分享的，希望高手指点并提出不同的见解，如果大家有更好的方法，请直接回帖，很想跟大家多学学，这样才能让自己提高。 说明：本人是喜爱excel，非专业学习，说的不对或不好的地方希望大家提出。