小编Das*_*ete的帖子

我看过很多关于我们的帖子,xlApp.activesheet.Pictures.Insert(strImagePath)用VBA将图片插入电子表格,效果很好.唯一的问题是它将其作为链接图片插入.因此,如果我将电子表格发送出网络,图像就会失败.任何人都可以告诉我如何使用Pictures.Insert将图像作为嵌入图像放置,或者可能是另一种将其嵌入的方法？如果有帮助的话,我也会从访问中调用此方法.

我为Excel编写了一个XLA加载项.此添加包括一个类模块.我想知道如何公开这个类模块以供使用.我已经四处搜索并找到了使用Visual Studio的方法,但遗憾的是我没有Visual Studio.有没有办法只从XLA做到这一点？

我正在使用一个函数从访问数据库中复制一堆图片并将它们存储到磁盘上.但是,此功能使用办公室剪贴板,剪贴板填满约150条记录并崩溃程序.这是我清理剪贴板的方法

Private Declare Function apiOpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long
Private Declare Function apiEmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long
Private Declare Function apiCloseClipboard Lib "user32" Alias "CloseClipboard" () As Long

Sub EmptyClipboard()
    Call apiOpenClipboard(0&)
    Call apiEmptyClipboard
    Call apiCloseClipboard
End Sub

任何人都知道如何更有效地清除剪贴板

我DoCmd.TransferSpreadsheet用来填充表格.使用表单上的按钮调用此命令.传输完成后,我想告诉用户添加了多少条记录.为了尝试和完成这个我db.OpenRecordset("select * from tblImport") 然后MsgBox(rs.RecordCount)
使用问题是在传输完成之前调用记录计数.无论如何都要同步调用它？

这是完整的代码

Private Sub cmdVIT_Click()
On Error Resume Next

Dim strPath As String
Dim filePicker As FileDialog
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb

Set filePicker = Application.FileDialog(msoFileDialogFilePicker)

With filePicker
    .AllowMultiSelect = False
    .ButtonName = "Select"
    .InitialView = msoFileDialogViewList
    .Title = "Select File"

    With .Filters
        .Clear
        .Add "All Files", "*.*"
    End With
    .FilterIndex = 1

    .Show
End With

strPath = filePicker.SelectedItems(1)
Debug.Print strPath
DoCmd.TransferSpreadsheet TransferType:=acImport, SpreadsheetType:=acSpreadsheetTypeExcel12, …

在VBA中,我想Property Let()从我的类构造函数中调用一个而不是仅仅在构造函数中设置变量.反正有没有这样做？