Tag: 保存

保存特定的文件名和格式: 我想问你的这个代码的帮助： Option Explicit Private WithEvents App As Excel.Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) App.EnableEvents = False With App.Dialogs(xlDialogSaveAs) Call .Show(MakeDocName, xlOpenXMLWorkbookMacroEnabled) End With App.EnableEvents = True Cancel = True End Sub Function MakeDocName() As String Dim theName As […]

保存一个Outlook项目VBA问题: 我无法保存outlook项目。（嗯，我刚刚意识到我正在与Word女士 – 这是否有关系吗？我仍然可以在这里发表？）无论如何，问题是，Word正在创build消息，并发送它就好（附件，主题和一切），但它不是正确地将文件保存在指定的位置。它保存为1 KB，不开放。下面是错误的代码和图像。非常感谢您的帮助！码： Private Sub CommandButton1_Click() Dim myString As String Dim myString2 As String Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) ' Doing some texts replacements here. myString = Label9 myString = Replace(myString, "[Name of Person]", TextBoxNoP.Value) myString = Replace(myString, "[Name of Establishment]", TextBoxNoE.Value) myString = Replace(myString, […]

Excel VBA在Internet Explorer中保存下载: 我有以下的VBA代码片段： Set ClassObj = IE.document.getElementsByTagName("a") ClassObj(76).Click 点击网页后，网页底部会出现一个小小的popup框，询问我是否要保存或打开文件。我想用VBA点击保存button，这样它就会进入我的下载文件夹。我该怎么做呢？

获取XML文件并使用vba将它们的副本保存到文件夹中: 我是将VBA与XML集成的新手。我需要获取很多XML文件并将它们的副本保存到一个文件夹中。示例xml（s）： http://simpsons.org/api/rest/v2/identities/HOMER http://simpsons.org/api/rest/v2/identities/MARGE http://simpsons.org/api/rest/v2/identities/BART http://simpsons.org/api/rest/v2/identities/LISA http://simpsons.org/api/rest/v2/identities/MAGGIE … 文件夹示例： C:\Users\myPC\Documents 现在，我想能够使用基地址： http://simpsons.org/api/rest/v2/identities/ 我还想使用命名范围“SimpsonsIdentities”，填充所有我想要的身份，以添加到基本URL以及我将创build的已保存文件的名称的末尾。要做到这一点，我将不得不循环范围内的每个名称“SimpsonsIdentities”。 SimpsonsIdentities HOMER MARGE BART LISA MAGGIE … 我在想这个基本结构是这样的： Sub SaveTheSimpsons () Dim n As Long Dim BaseURL As String Dim SimpsonsIdentitiesCount As Long … For n = 1 To SimpsonsIdentitiesCount GET BaseURL & SimpsonsIdentity SaveAs C:\Users\myPC\Documents & "\" & SimpsonsIdentity […]

如何保存csv格式的工作表，同时保持列分隔格式？: 我正在从一个源（表）创build多个工作表的VBA代码。我试图将它们单独保存为CSV格式以将其用于批量input。但是，要求在CSV文件中保存的工作表必须保持“列分隔格式”。这是我在哪里： For i = 0 To nb If Sheets("PjtDef").Range("A2").Offset(k + i, 0).Value <> "" Then Sheets("PjtDef").Range("A2").Offset(k + i, 0).Select Sheets("PjtDef").Range("A1", ActiveCell).EntireRow.Copy Sheets.Add ActiveSheet.Name = h ActiveSheet.Paste Worksheets("PjtDef").Activate Sheets("PjtDef").Range("A2").Offset(k + i, 0).Select Range("A2", ActiveCell).EntireRow.Delete Shift:=xlUp h = h + 1 Else: i = nb End If Next i Dim xWs As Worksheet Dim […]

Excel VBA Saveas函数破坏文件: 当我尝试使用ActiveWorkbook.Save函数保存我的文件时。该文件得到损坏，我不能再使用它了。我已经尝试了ActiveWorkbook.SaveCopyAs函数，但结果是一样的。下面的例子。我已经添加了底部使用的2个其他function。 Sub Publish_WB() Dim ws As Worksheet Dim cell As Range Dim CurrentPath, OriginalFname, NewFname, FName As String If CheckPublished() Then MsgBox ("Published version, feature not available …") Exit Sub End If NoUpdate PublishInProgress = True 'Save the Current Workbook OriginalFname = ActiveWorkbook.Path & "\" & ThisWorkbook.Name 'Store the current path […]

提示closures多次保存: 我正在使用VS2008。在我的应用程序中，从MMCpipe理单元中运行Excel 2003工作表（在Office 2007中），以便用户可以修改某些参数。代码订阅了BeforeClosing事件，Window Deactivate和WindowActivate。只有在用户selectclosuresExcel应用程序后，才会平稳地运行，并提示他保存文件是/否/取消，并且永远不会保存表单。问题是我正在使用Workbook.Close（）来closures该死的东西。它的第一个参数是一个布尔，如果它是真的，它会每次都保存，从不假，在Type.missing它会在closures时再次提示。因此，用户被提示一次（这个人只有取消function），然后他再次被Workbook.Close（）提示保存（这有一个/没有function，但没有取消function – 即使你点击取消）。不，我试图订阅BeforeSave事件，并试图把它放在beforeClose中，但它不会触发; 另外强制保存不是一个解决scheme，并跳过closures工作簿和杀死Excel（以避免工作簿closures）也不是一个解决scheme。我也试图通过简单地释放与工作簿关联的com对象来避免workbook.close，但无济于事。有一件事要注意，如果你点击文件保存，会出现一个对话框，告诉你如果你保存电子表格，某些function在Office 2003中可能不可用（这个额外的对话框可能是个问题吗？）一个可能的解决scheme（我将作为最后的手段）将是closures压缩保存提示，并从代码（我可以控制一个对话框）激发自己的对话框，并阅读结果，并做相应的事情（我想要避免这种情况，因为它必须翻译成20多种语言，需要很多时间…）如果您有任何想法，我将不胜感激。

Excelmacros：为什么不能保存在正确的目录？: 我有一个Excelmacros复制从一个特定的工作表中的所有信息，并将其复制到一个新的工作簿。代码如下： Option Explicit Sub TwoSheetsAndYourOut() Dim NewName As String Dim nm As Name Dim ws As Worksheet If MsgBox("Copy specific sheets to a new workbook" & vbCr & _ "New sheets will be pasted as values, named ranges removed" _ , vbYesNo, "New Copy") = vbNo Then Exit Sub With Application .ScreenUpdating = False […]

closuresExcel而不保存在PHP中: 我在我的Windows服务器上使用Excel.Application COM对象。目前我正在使用： $this->excel->Quit(); 但它启动了一个diablog框要求保存。我想知道如果我们可以强制closures的Excel文件而不保存。编辑：我可以添加，该文件实际上是修改，但我在退出之前调用“另存为”。

EXCEL任何方式将每个迭代结果复制到一个单独的表？: 我有一个下面的问题：我想尝试不同的值说A1单元格。每次我把数值inputA1，单元格B1，C1，D1和E1都会改变。有什么办法可以创build一个新的表，将自动将这些迭代的结果复制到单独的单元格。所以例如：我selectA1 = 10。这自动出现在A3。所有B1，C1，D1和E1的值自动存储在B3，C3，D3和E3中。然后我改变A1 = 20。B1，C1，D1和E1的所有新值现在存储在B4，C4，D4和E4。任何build议如何做到这一点？感谢您的时间！