Tag: 保存

如何在VBA中设置一个基于月份的文件path？: 我有一个问题。目前我有几个vb模块相互工作，执行时会增加一个下拉列表，将每个选项的版本保存在下拉列表中，并打印出一份副本。现在我正在使用这个文件path。 Sub G5() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Users\MY.Name\Documents\Testing\" & _ Range("G5") & "\" filename = Range("G5") If ActiveSheet.Range("G5").Value = "" Then End If ActiveSheet.Range("G5").Value = "NAMES" Then Exit Sub ActiveWorkbook.SaveAs filename:=Path & filename & "-" & Format(Date, "mmddyyyy") & ".xlsm", FileFormat:=52 End Sub 所以单元格G5包含这个凭证的人的名字（Last，First）。每个名称都是数据validation的，并且与其各个文件夹的名称相同。 […]

保存之前不能使用另存为: 我已经制作了一个保护表单并将表单更改为表单“A”的macros，然后保存该文件，然后返回到我已经开始的表单。不幸的是，当我的macros在工作簿中时另存为选项不起作用。每当我点击另存为，想search一个地方保存我的文件，macros开始运行，并禁用我试图采取的行动。这是我写的代码： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableCancelKey = XlEnableCancelKey.xlDisabled Application.ScreenUpdating = False Application.EnableEvents = False Dim aktywny As Worksheet Set aktywny = ActiveSheet For Each Sh In ThisWorkbook.Sheets If InStr(Sh.Name, ".") <> 0 Then If Sh.ProtectContents = False Then Sh.Protect Password:="XXX", DrawingObjects:=True, Contents:=True, Scenarios:=True _ […]

为什么打开新工作簿时macros停止运行？: 我正在使用下面的代码片断来保存电子表格，并将其保存为值并重新保存。但是，工作簿打开然后macros停止运行。为什么是这样？我该如何阻止它？我试着设置ScreenUpdating = False无济于事。 Sub saveReport() Dim nwkbk As Workbook Dim thsWkbk As Workbook Set thsWkbk = ThisWorkbook nwkbkPath = thsWkbk.Path & "\x. Archive\" & Format(Date, "YYYY-MM-DD – ") & thsWkbk.Name ApplicationDisplayAlerts = False thsWkbk.SaveCopyAs nwkbkPath Set nwkbk = Workbooks.Open(nwkbkPath, False) For w = 1 To nwkbk.Sheets.Count nwkbk.Sheets(w).UsedRange = nwkbk.Sheets(w).UsedRange.Value Next w […]

VBA其他工作簿没有正确closures: 您好，我的VBA代码不想正确closures我的原始数据文件。我有一个数据捕获表单，当我点击提交，打开另一个Excel文件，将所有数据复制到它，应该保存并closures工作簿。我的代码如下： Private Sub submit_Click() 'Open Workbook If MsgBox("You are about to Submit, Are you sure?" & vbCr & "Please make sure that the OUTCOME box is complete", vbYesNo) = vbNo Then Exit Sub Dim wb As Workbook, sh As Worksheet Set wkb = Workbooks.Open("\\ServerName\Reports Folder\Team Name\Manager Name\RAW\RAW QC data.xlsx") 'Make Daily_Tracking_Dataset active 'Determine […]

在c＃中打开并保存excel文档: 我试图用C＃打开和保存一个Excel文档，但是我总是得到错误：“已经从它的底层RCW分离的COM对象不能被使用”。在行ExcelApp.Quit(); 我GOOGLE了很多的解决scheme，但没有为我工作到目前为止。这是我的代码： using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; using Microsoft.Office.Core; using Excel = Microsoft.Office.Interop.Excel; namespace test_excel { public partial class Form1 : Form { Excel.Application ExcelApp = null; Excel.Workbook ExcelWorkBook = null; Excel.Sheets ExcelSheets = null; Excel.Worksheet MySheet = null; public […]

在ASP.NET中保存Excel文档: 问题：我在ASP.NET应用程序中使用Microsoft.Office.Interop.Excel库，并在工作簿中填充了工作表。我希望提示用户将文档保存到他们的机器，但我找不到一个方法来执行它（ myWorkbook.SaveAs(…)不起作用）。题：如何将工作簿保存到用户的机器？我已经使用Response.Write(…)提示用户保存基于文本的文件（CSV）之前，但我不知道如何为.xls文件做到这一点。奖金：如果这是不可能使用Microsoft.Office.Interop.Excel库，是否有一个我可以使用的免费（较小的GPL-ish）库？我会假设微软将有一个工具，但我们都知道什么假设…

VBA SaveAs方法: 在浏览论坛一个多小时后，我似乎无法弄清楚为什么我的另存为代码不起作用。我的目标是在不同的文件types下保存工作簿的新副本。（当前的文件types是.csv。）我不是试图保存在一个新的或不同的位置，当前的目录是我想要保存的位置。我已经尝试了以下代码的更多变体，所以我只会发布我的当前语法： CurrentDir = CurDir() dateVal = Date ActiveWorkbook.SaveAs Filename:="" & CurrentDir & "ALS Week of " & dateVal – 4 & ".xlsx", FileFormat:=51 我已经看过如何打开一个对话框的例子，其中用户input的信息，以保存。但是我希望能够放手。如果有人可以看到我的错误在哪里，请让我知道！编辑：我得到的错误是"Method 'SaveAs' of object '_Workbook' failed

保存大xlsx文件pandaspython: 我想连接20个excel文件到一个，并保存到Excel。应该在一张纸上。我的想法到目前为止是读取所有的文件到数据框，连接他们，并保存到Excel。连接后，我有一个dataframe的形状是（1245226，20），在保存文件后，Excel中的大小是（1048576,20），磁盘上的大小是61MB。下面我张贴我testing的方法来保存文件： >> df.shape (1245226, 20) 方法1 – 获取（1048576,20）而不是（1245226,20） writer = pd.ExcelWriter(path) df.to_excel(writer, index=False) writer.close() 方法2 – 由于内存不足（16 GB RAM）无法保存文件 writer = pd.ExcelWriter(path, engine='openpyxl') df.to_excel(writer, index=False) writer.close() 方法3 – 获取（1048576,20）而不是（1245226,20） writer = pd.ExcelWriter(path, enigne='xlsxwriter') df.to_excel(writer, index=False) writer.close() 任何想法如何保存？也许有一种方法直接追加到excel文件的数据？

VBA – 运行时错误1004 – 文档可能无法保存: 我得到的实际错误是 “运行时错误”1004“：文档没有保存。“ 然后当我点击debugging时，我需要线路 ActiveWorkbook.Save 我有一个巨大的VBAmacros，我有一些问题。这个macros开始于大约75页左右的大型工作簿。它从第一页开始，读取工作表的名称以确定在数据上运行哪个模型，创build新工作簿，进行计算并创buildgraphics，然后在移至下一个input工作表之前保存工作簿。所有这些工作正常，除了保存新的工作簿。有4个不同的模型，我正在运行，其中2个保存正确。但是，对于其他2我随时面临着这个错误，我试着保存它们。 OutputFolder = "location of output file" If Dir(OutputFolder, vbDirectory) = "" Then MkDir OutputFolder End If Workbooks.Open Filename:="location of input file" '(this is a path to the file) Workbooks.Open Filename:="location of lookup table" '(another path) number_of_reports = Workbooks(InputFile).Sheets.Count Workbooks(InputFile).Activate For i = 1 To […]

Excelmacros生成的文件副本保持链接到原始文件: 我有非常大的文件销售全球销售数据，我需要过滤的国家和产品，然后分析。由于我将需要不同的国家/产品组合一遍又一遍地执行相同的分析，我正在试图用macros来做到这一点。 macros是这样做的：用全局数据打开源文件; 过滤数据; 将其复制并粘贴到一个包含macros的工作簿中; 重新计算并刷新工作簿; 将该文件的副本保存到另一个文件夹。 macros似乎运行良好，文件正在保存，但是我遇到了步骤4和5中的两个问题：数据透视表似乎并不令人耳目一新 – 这可能是因为第二个问题：保存的副本中的所有数据透视表仍然是指原始文件我宁愿通过生成没有链接的复制文件解决这两个问题，但我也打开任何可能允许我强制复制的文件链接到自己的bandaids（这似乎不工作，当我这样做手动地）。我有完整的代码，如果你想看到这一切，但因为我怀疑这个问题是在我如何保存文件，我只是把这一块粘贴在这里。让我知道如果你需要看到macros的另一部分。任何帮助将不胜感激，提前感谢。保存function： Public Sub SaveAsCopy(filePath As String) Dim updateStatus As Boolean 'Check current status of Alerts updateStatus = Application.DisplayAlerts 'Turn off alerts Application.DisplayAlerts = False ThisWorkbook.Sheets.Copy 'creates new workbook without macros" 'The New workbook copy is now the Active […]