主页 > 科技生活 >苹果ios7固件下载_在EXCEL中添加按钮,点击按钮弹出打开文件对话框,然后选择文件后添加到单元格内,VBA的程序怎么弄 >

苹果ios7固件下载_在EXCEL中添加按钮,点击按钮弹出打开文件对话框,然后选择文件后添加到单元格内,VBA的程序怎么弄

在EXCEL中添加按钮,点击按钮弹出打开文件对话框,然后选择文件后添加到单元格内,VBA的程序怎么弄

下面的代码是从我的程序复制的,稍做改动就可以适合你的需要:sName=Application.GetOpenFilename(dept&"文本数据,*.txt;*.unl;*.cvs;*.csv",,"打开信息技术部提供的文本文件")
IfsName=FalseThenExitFunction
Sheets("工具").[b2].Value=sName追问

不行啊!我就想要一个按钮能实现插入文件的功能追答

要插入文件名到单元格,一个语句就可以,不过我不知道你是否看懂、是否去测试了这个语句。

要插入文件内容,需要打开文件读取内容,然后写入到表中,需要一个循环。追问

就是一个添加附件的功能,求代码追答

多么希望你能用详细的语句表达你的需求,让人明白你想要什么,猜着真累
下面语句是不是你要的功能:sName=Application.GetOpenFilename("所有文件,*.*",,"选择附件")
ActiveSheet.OLEObjects.Add(Filename:=sName,Link:=False,DisplayAsIcon:=False).Select


实现的功能,和你按菜单里面的插入、对象、来自文件。

追问

一开始是我要求点击灰色小键后打开文件夹,最后达到这种效果就好,你上面的代码不可以出现位置正好的图标啊!我就是想实现跟插入-对象-来自文件一模一样的效果!

追答

上面的代码就是插入对象,如果需要显示为图标需要修改一下参数,下面的代码部分一看就知道怎么修改:
DisplayAsIcon:=False追问

关键是我已经改成TRUE了,可是出来的大小图标还是不对,求加个Q,这是我第一个任务,再不出来就快被炒咯,急急急啊追答

个人认为,关键是学会方法:录制宏,进行操作,查看代码,修改使用。Subxxx()
DimsNameAsString,oleAsOLEObject
sName=Application.GetOpenFilename("所有文件,*.*",,"选择附件")
Setole=ActiveSheet.OLEObjects.Add(Filename:=sName,Link:=_
False,DisplayAsIcon:=True,IconFileName:=_
"C:windowsInstaller{90150000-0011-0000-0000-0000000FF1CE}xlicons.exe",_
IconIndex:=0,IconLabel:=sName)
ole.Top=100
ole.Left=100
ole.Width=100
EndSub

图标、标签、大小,都是可以改变的。

追问

按你说的,我现在图标不是正常的word文档或者excel表格的样子,而且文档下面是路径也不是文档的名称,求在线解答

追答

例子代码中的下面代码是指定图标文件和标签的:
IconFileName:= "C:\windows\Installer\{90150000-0011-0000-0000-0000000FF1CE}\xlicons.exe"
IconIndex:=0

IconLabel:=sName

你录制宏,看看图标文件是什么,自己修改。追问

录制宏过了,必须指定文件才能录制,怎么改都达不到效果,求直接点的代码!追答

图标文件和图标标签是分开的,标签就是显示在图标上的文件名。

我的代码在我的机器上执行完全正确,就是最直接的代码,在你的机器上可能不正确,那就是图标文件的路径可能不同。

你自己录制了宏,只看图标文件的路径,替换到我的代码里面就可以了。

是不是要这种效果的?代码比较多。看呢称联系。

追问

是这种效果,打开文件夹后可以插入word文档或者图片等就可以,求代码Set fd = Application.FileDialog(msoFileDialogFolderPicker)
你好,有个问题请教下你,怎么样在VBA中自动点击网页中由alert弹出的确定按钮?


引入js实现,先要找到alert触发代码
用VBA控制另存为对话框,锁定“是”按钮?代码如何写? 或不弹出另存为框,直接替换!
我晕,这个就弹出窗口啊。
用saveas filename:="""语可以了。如下:
Sub test()
ActiveWorkbook.SaveAs Filename:="g:\1001.xls"
End Sub
EXCEL VBA怎样在点击按钮后,弹出一个输入密码的对话框,密码正确的话执后续程序段,否则结束

Subtest()
myPW="123456"'设置
p=InputBox("请输入运行密码","温馨提示!",Default)
IfmyPW=pThen
MsgBox"OK"'删除此插入原代码
Else
MsgBox"密码错误,请输入!",,"温馨提示!"
EndIf
EndSub



简单点的办法是使用InputBox,但是密码会显示,复杂点的办法是做一个用户窗体,窗体上输入密码。本回答被网友采纳Private Sub CommandButton1_Click()
a = Application.InputBox("入密码", , , , , , , 2)
If a <> 正码 Then
Exit Sub
Else
的代码
End Sub


上一篇: 下一篇: