您當前的位置:首頁 >> 娛樂
Excel將文件插入到單元格(VBA)
發布時間:2019-07-18
 


1,插入按鈕并新建宏 

2,插入代碼

 

3,點擊按鈕查看效果


 

結論:相關代碼如下:

 

 

 

 

 

Sub AddFile()

On Error GoTo Err  '系統發生錯誤轉到錯誤提示模塊

 

Dim pathname, filename As String '定義存儲路徑和文件名的變量

Dim cur_row As Long '定義記錄當前行的變量

 

  cur_row = Sheet1.Range("E1048576").End(xlUp).Row + 1

   Ifcur_row <= 7 Then

     cur_row = 8

  End If

 

 

 

  pathname = Application.GetOpenFilename("所有文件(*.*,*.*")'打開文件選擇窗口選擇文件

   Ifpathname = "" Or pathname = "False" Then Exit Sub '選取失敗

 

  Sheet1.Cells(cur_row, 4).Select

  filename = Right(pathname, Len(pathname) - InStrRev(pathname,"\")) '從文件路徑中提取文件名用于標簽顯示

      '添加文件到表格中

      ActiveSheet.OLEObjects.Add(filename:= _

           pathname, Link:=False, DisplayAsIcon:= _

          True, IconFileName:="", _

          IconIndex:=0, IconLabel:=filename).Select

 

          Selection.Placement = xlMoveAndSize '設置隨單元格變化改動位置

          With Selection.ShapeRange

                .LockAspectRatio = msoFalse '設置取消縱橫比鎖定

                '.IncrementLeft 559.5

                '.IncrementTop 54.75

                .Height = Sheet1.Cells(cur_row,4).Height '設定顯示空間的高度等于單元格的高度

                .Width = Sheet1.Cells(cur_row,4).Width '設定顯示空間的寬度等于單元格的寬度

          End With

  Sheet1.Cells(cur_row, 5).Value = filename

  MsgBox "添加成功!", vbInformation '成功提示

  Exit Sub

 

'以下是錯誤提示模塊

Err: MsgBox "出了個錯,反正沒完成任務,我也不知道為啥...",vbCritical

End Sub


相關閱讀
五子棋怎么玩视频教程 理财平台排名 配资行业查询 福彩3d晚秋字迷 快乐10分就是个骗局 股票指数怎么买卖代码 浙江快乐12彩走势图 北京快3最大遗漏 二分时时彩今天出的好 福建11选5百度 能买辽宁十一选五app