Tag: filedialog

Excel VBA – 删除FileDialog: 我正在使用下面的代码来列出文件夹中的文件。代码工作的很好，但是，我不需要用户select文件夹，文件夹将每次都是相同的。我可以删除FileDialog框吗？ With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choose the folder" .Show End With 我需要什么来取代它，以列出每次在同一文件夹中的文件？ Sub FolderNames() Application.ScreenUpdating = False Dim xPath As String Dim xWs As Worksheet Dim fso As Object, j As Long, folder1 As Object With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choose the folder" .Show End With On Error Resume Next xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & […]

msoFileDialogFilePicker导致错误: 请不要评论任何有关命名约定，方法，询问代码应该做什么，或与我的问题没有直接关系的任何事情：这对我来说是完美的 – 每次popup一个窗口，我select多个Excel文件，并将他们的数据上传到我的工作表（代码未显示）。我的客户说，当他运行它时，他会得到一个错误，当然，我认为这是因为他在Mac上运行它，但他说他在PC和Mac上都出错。我不能重新创build错误…在这里，我们是。这里是有问题的代码，以黄色突出显示的错误行：代码复制： Sub Import_Employee_Sheet() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True If .Show = True Then End If End With End Sub

用户inputFileDialog到VBA中源文件的path: 已解决由于它是由@ z32a7ul指出我正在使用错误的variables来声明FileDialog后的path。它应该是OutPathS而不是OutPath。什么代码：我有一个代码读取文件夹中的文件，打印活动工作簿中的名称，然后按升序排列名称。 Obs1：我有以下代码使用这些信息进行计算，但是这个部分与当前的问题无关。目标：我正在尝试创build一个FileDialog，以便用户可以input源文件所在的文件夹。问题：我为此创build了一个代码，但由于某些原因，它不会读取源文件，即使格式相同。我到目前为止：如果我删除这个用户input，只是“源代码”的地址（假设我的采集工作簿在同一文件夹中），一切工作正常。但是，我只能将这个“收集者”工作簿放在哪里。问题：我没有得到具体的错误行。结果是这个问题，因为它没有find源文件。有没有人有什么想法在这里做什么？码： Option Explicit Public path As String Sub Counter() Dim count As Integer, i As Long, var As Integer Dim ws As Worksheet Dim w As Workbook Dim Filename As String Dim FileTypeUserForm As UserForm Dim X As String Dim varResult As Variant […]

在msoFileDialogOpen中打开订单: 我写了一个macros，要求我打开一些文件，然后根据文件的名称运行更多的macros。 With Application.FileDialog(msoFileDialogOpen) .ButtonName = "Seleziona" .InitialView = msoFileDialogViewList .AllowMultiSelect = True .Filters.Add "File Excel", "*.xls", 1 .InitialFileName = "\\SERVER-PDC\Archivi\DOCUMENTI SU SERVER\LAURA\" .Title = "Seleziona i file: corpi, mancanti, montaggio, pressa. Questa è la settimana numero " & Format(Date, "ww") .Show On Error GoTo Erroremultiselezione For Each vrtSelectedItem In .SelectedItems Workbooks.Open Filename:=vrtSelectedItem, CorruptLoad:=xlRepairFile Application.DisplayAlerts = […]

如何使用VBA控制已经打开的Web文件对话框？: 我试图在我公司的Intranet站点上传一个图片。但它打开一个FileDialog，我需要select一些文件，然后单击“确定”button。但我不想用sendKeys来做。有谁知道如何用VBA来控制这些Microsoft Windows FileDialog。只是“文件名”字段，和确定button。对不起，如果我没有任何代码。这是因为我找不到任何人。不知道。

Excel VBA，使用FileDialog打开多个工作簿并引用它们: 我正在使用下面的代码来提示用户的工作簿，打开它，从它获得一些信息，然后closures它。目前，我使用带有索引的工作簿集合（“woorkbooks（2）”）来处理打开的工作簿。现在我需要打开两个工作簿，而我的问题是，我不知道哪些工作簿将被索引为2，哪些索引为3.所以，我认为必须有一种方法来获得对每个工作簿。 Function openfile() As Boolean Dim fd As FileDialog Dim file_was_chosen As Boolean Set fd = Application.FileDialog(msoFileDialogOpen) With fd .Filters.Clear .Filters.Add "Excel File", "*.xl*" End With file_was_chosen = fd.Show If Not file_was_chosen Then MsgBox "You didn't select a file" openfile = False Exit Function End If fd.Execute openfile = True End Function 现在我已经看到了解决这个问题的一些解决scheme，包括获取每个工作簿的完整path，但是我宁愿避免使用完整path，因为它包含不同语言的单词（并且工作簿的名称带有问号）。 […]

Excel保存为框: 我希望你们能帮助我我不是很了解vb编码，只是一些极端的基础知识。我试图让我的destfile = Application.FileDialog，但我不太清楚如何去做。我知道如何使默认path目标到我当前的代码，但我宁愿浏览保存为框。任何偶然的帮助？这是我目前的代码。 Sub QuoteCommaExport() ' Dimension all variables. Dim DestFile As String Dim FileNum As Integer Dim ColumnCount As Integer Dim RowCount As Integer ' Prompt user for destination file name. DestFile = InputBox("Enter the destination filename" _ & Chr(10) & "(with complete path):", "Quote-Comma Exporter") ' Obtain next […]

使用FileDialog命令遇到.InitialFileName视图时出现问题: 所以我正在使用FileDialog来select一个文件夹，里面装满了我正在放入PowerPoint演示文稿的图像，并且遇到了出现正确的初始视图的问题。这是我的 strFolder = InitDir Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select a Folder" .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .InitialFileName = "C:\Users\Daniel\My Pictures\" 'using to test code If Right(strName, 1) <> "\" Then strFolder = strFolder & "\" End If If .Show <> -1 Then Exit Sub Else strFolder […]