VB打开Excel文件.docVIP

VB打开Excel文件的较完整代码：包括检查文件是否存在、以及文件是否打开。 Private Sub Open_Excel()Dim xlApp As excel.ApplicationDim xlBook As excel.WorkbookFileName = 文件的具体路径 On Error Resume Next??????? Set xlApp = GetObject(, Excel.Application)???? 判断Excel是否打开??? If Err.Number 0 Then??????? Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象??????? xlApp.Visible = False 设置EXCEL对象不可见??? End If??? Err.Clear??? ??? If Dir(App.Path FileName) = Then?? 判断文件是否存在??????? MsgBox App.Path FileName 未找到！, vbOKOnly, 友情提示??????? exit Sub??? End If??? ??? 判断文件是否打开??? For Each xlBook In xlApp.Workbooks??????? If xlBook.Name = Mid(FileName, 2) Then??????????? MsgBox 文件已打开！请不要重复打开。, vbOKOnly, 友情提示?????????? xlBook.Activate??????????? xlApp.WindowState = xlMaximized??????????? exit Sub??????? End If??? Next??? Set xlBook = xlApp.Workbooks.Open(App.Path FileName) 打开工件簿文件??? xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL启动宏??? xlBook.RunAutoMacros (xlAutoClose) 运行EXCEL关闭宏??? xlApp.Visible = TrueEnd Sub 单击单元格，弹出对话框 设在Sheet1中的A1选定则弹出对话框 按Alt+F11进入VBA环境,进入Sheet1模块 录入以下就行 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then MsgBox Input message., vbOKOnly + vbInformation, title End If End SubVB抓取文件夹里的图片 悬赏分：85 - 解决时间：2009-2-12 22:24 我想要实现VB把一个文件夹的图片有选择的插到EXCEL里，用EXCEL的宏不好使， Set Photo = ActiveSheet.Pictures.Insert(G:\sec\benq1620\1494025674.jpg)，这样的代码也只能插入一张，我的思路是自动遍历磁盘，然后根据文件建立的时间，用循环的方法插入到EXCEL里，大家帮帮我啊，急用~~！！！！80分悬赏啊~！！！！！！！！！！！！！ Option Base 1 Dim fs Dim f Dim fd Public Type picFile FullName As String DateCreated As Date LaseModified As Date End Type Dim iCount As Integer Dim arrPics() As picFile Sub test() Dim sf As String sf = InputBox(您要在哪个文件夹中查找图片？ vbCrLf 请在下面输入它的完整路径：, 提示) 获取用户输入的文件夹 If Right(sf, 1) \ Then sf = sf \ Set fs = CreateObject(Scripting.FileSystemObject) 检验用户输入的有效性 On Error Resume Next Set fd = fs.GetFolder(sf) On Error GoTo 0 If fd Is Nothing Then MsgBox 输入错误 Exit Sub End