我得到了一个类型不匹配的13错误,在线,循环通过形状在幻灯片。我可以看到oSh是Nothing,但是如果我.Count这些形状,幻灯片中有很多形状。这有什么意义?
简要代码:
Dim oPP As PowerPoint.Presentation
Dim oS As Slide
Dim oSh As Shape
For Each oS In oPP.Slides
For Each oSh In oS.Shapes '<-- this line is the error line
On Error Resume Next
If oSh.Type
我在VBA上自学,这可能是最糟糕的一种,我仍然认为自己是一个新手。有些事情我就是不能理解,这个网站简直是天赐之物。这段代码不是我自己的,所以我几乎不知道它在做什么,这使得它很难修改。在过去的两年里,它一直在工作。该公司现在正在缓慢升级电脑,我们现在有一些运行Office 2010,一些运行2013。这意味着我不能再在代码中使用Office工具引用,因为它会在系统之间中断。长话短说,我需要在这段代码上做一个后期绑定,但我不知道怎么做。我在msoFileDialogFilePicker和msoFileDialogViewList上得到一个错误请溢出社区,救命! With Application.
在编译VBA代码时,何时处理Dim语句?如果我这样做,是否会提高效率?:
Dim oFileDiag As FileDialog
Set oFileDiag = Application.FileDialog(msoFileDialogFilePicker)
If oFileDiag.Show = -1 Then
'// Dim statement further down in the code...
Dim ofdSelected As FileDialogSelectedItems
Set ofdSelected = .S
Private Sub bBrowse_Click()
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
With objDialog
.AllowMultiSelect = True
.Show
If .SelectedItems.Count = 0 Then
MsgBox "No file selected."
我有一个代码,它可以在excel 2010版本中正常工作,但在2013版本中不能。瞧一瞧。
Sub select_strategy()
'Subroutine that lets the user select a strategy table
'
'Declare local variables
Dim strategyFileDialog As Office.FileDialog
'Declare local variables
Dim intStrategySelection As Integer
'Ini
我为我的Access表单获得了这个代码,用于打开文件选择器并选择一个文件。我在网上找到了代码。 我怎样才能获得文件路径呢?现在我只知道文件名了.. Private Sub FilePath_Click()
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
With objDialog
.AllowMultiSelect = False
.Show
If .SelectedItems
我在尝试使用MS Access 2016中的FileDialog属性显示文件选择器时遇到了问题。我尝试过早期绑定和后期绑定,但是文件选择器从不显示。没有检测到错误,也没有显示消息。当我尝试逐行调试它时,.show不会触发表单。我也尝试过用If .show=-1代替.show,但这也不起作用。我尝试删除对MicrosoftOffice16.0对象库的库引用,即使使用后期绑定,窗口仍然不显示。对于哪里出了问题,以及如何补救,有什么想法吗?下面我将添加早期和后期绑定示例。
Public Sub FP_EarlyBinding()
Dim fd As Office.FileDialog
Set fd
当我使用输入函数时,我知道为什么我在使用下面的代码时,一直收到运行-time错误62输入超过文件结尾错误的消息。help函数告诉我文件是二进制的,我应该使用LOF或Seek,但是这两种方法似乎都不起作用。这段代码运行得很好,直到最近Windows和微软对我的电脑进行了更新。
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
.Filters.Clear
我有一个vba宏来将图像添加到Excel文件中。添加文件的主要代码是.
Dim s As Shape
Set s = Application.ActiveSheet.Shapes.AddPicture(strFilename, msoFalse, msoCTrue, lngLeft, lngTop, -1, -1)
With s
.Height = 60
.Locked = True
End With
lngLeft和lngTop是代码前面设置的坐标。使用Application.FileDialog(msoFileDialogFilePicker)选择目标图像文件
使用以下
尝试创建一个文件数组,稍后我可以“循环”这些文件,以便从每个文件中提取信息(这些文件在excel中的布局相同/ forms )。收到“6”溢出错误,怀疑这是由我的循环引起的错误? Sub WorkOrderList()
'This compiles an array of Files by picking from the folder
Dim objFileDialog As Office.FileDialog
Dim SelectedFile As Variant
Dim arFiles() As Variant
Dim myCount As Integer
Set objFil
我正在开发一个旧的VB6应用程序,最近添加了西门子OPC组件。在VB6调试器中运行时,我没有问题。
然后我创建了一个部署包(Siemens包含在包中),并将应用程序部署在同一台PC上。然后在访问OPC对象时得到以下错误消息:
“对象的方法~失败”
有人能建议是什么导致了这件事或者我能做些什么来获得更多的信息吗?
更新我知道围绕这条错误消息的其他问题。让我困惑的是,在使用VB调试器时没有问题。这些问题发生在部署后--甚至在同一台机器上。我原以为所有的组件都是注册和可用的。
码
Public Sub InitialiseOPC(ServerIP As String, OpcServerName A
我的工作簿中有一个宏(工作非常好)-
Dim filename As String
' select file
With Application.FileDialog(msoFileDialogFilePicker)
If .Show <> -1 Then Exit Sub
filename = .SelectedItems(1)
End With
现在,上面的代码允许用户选择任意类型的多个文件。如何修改它,使其只允许用户选择特定类型的(.xml)的单个文件?请指导..。谢谢!:)
编辑:我在@Tim在这篇文章的评论中找到了这个代码谢谢提姆:)
With
你好,
我需要找到一种将新数据导入数据库的方法,该数据库由SQL Server后端和MS Access 2010前端组成,从前端将表链接到后端。
理想情况下,这将涉及用户单击前端窗体上的按钮,并选择要导入新数据的excel电子表格,然后将其保存在后端Server表中。
我在要导入的Excel电子表格中创建了一个vba模块。守则是:
Public Function ExcelPicker(Optional strFileName As String, _
Optional ByVal strWindowTitle As String = "Select an exce
我正在使用msoFileDialogFilePicker打开两个文件,以便将数据导入到新工作簿中进行比较。我想在我的新工作簿中使用文件名作为标题,并使用文件名来命名我的新工作簿。例如,2月份的销售额与3月份的Sales.xlsx,以及作为我的工作表选项卡中的标题。单元格A1中的文件%1和单元格O2中的文件名%2。预告,谢谢!
子ImportSalesData() Application.DisplayAlerts = False
Dim directory As String, Filename As String, sheet As Worksheet, total As
我想做以下工作:当一条消息失败并落入我的死信队列时,我想等待5分钟,并在我的队列中重新发布相同的消息。
今天,我使用Streams和RabbitMQ完成了以下代码
@Component
public class HandlerDlq {
private static final Logger LOGGER = LoggerFactory.getLogger(HandlerDlq.class);
private static final String X_RETRIES_HEADER = "x-retries";
private static final
我正在尝试将一段代码传输到另一本工作簿。该代码在workbook1上运行良好,但生成一个
编译错误用户定义类型未定义
在workbook2上运行时。
这是有问题的代码。
' Set up Outlook Namespace
Set OL = CreateObject("Outlook.Application")
Dim olNS As Outlook.Namespace
Dim olFol As Outlook.Folder
Set olNS = OL.GetNamespace("MAPI")
Set olFol = olNS.GetDefau
在excel中,msoFileDialogFilePicker将返回一个文件名及其路径,我想要的只是文件名。下面是返回这两个参数的代码:
Sub GetfileNames()
Dim fd As FileDialog
dialogTitle = "Select files for Master Update."
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.InitialFileName = "H:\D
VBA Excel 2010。
仅供用户选择excel文件。
Private Sub OptionButton1_Click()
Set fd1 = Application.FileDialog(msoFileDialogFilePicker)
With fd1
.AllowMultiSelect = True
.Title = "Select the EXCEL FILES to extract."
.Filters.Clear
.Filters.Add "All Files", "
我在GetOpenFilename中没有看到任何参数来将默认文件夹设置为下载。
当前,它打开“文档”文件夹。是否可以将默认位置设置为“下载”文件夹。
如果没有用户名,我就无法将路径硬编码为下载。例如C:\Users\NameOfUser\下载
**********Solution**********
Dim FilePaths As FileDialogSelectedItems
Dim iFolderPath As String
iFolderPath = Environ("USERPROFILE") _
& Application.PathSeparator &am
我正在尝试使用FileDialog(msoFileDialogFilePicker)从我的源工作簿复制数据。
但是代码总是卡在"sourceworkbook.Worksheets("sheet1").Activate",上,我假设它是BCS,所选的文件太大了,所以当它还在打开的过程中,微不能激活正确的工作表。因此,我增加了等待文件完全打开的时间,该文件仍然失败。
这是我得到的,
Sub Test()
Dim sourceworkbook As Workbook
Dim currentworkbook As Workbook
Set currentworkbook