我正在编写一个程序,它将数据从一个工作簿复制和粘贴到另一个工作簿。我想将一个工作簿保存在一个不同的位置,关闭它,然后从一个文件中打开一个新的工作簿并做同样的事情(我要从多个工作簿复制数据并将这些数据粘贴到一个主工作簿中)。我还需要帮助逆转标志(例如:我将从wbk1复制数字1,并需要将-1粘贴到wbk2中)。
Function GetBook() As String
GetBook = ActiveWorkbook.Name
End Function
Sub Paste()
Dim wbk As Workbook
Dim wbkH As Workbook
Dim
我正在使用TableauServerClient。我的代码:
all_workbooks,pagination_item=server.workbook.get()
for wb in all_workbooks:
print(wb.name)
它打印服务器中的所有工作簿(来自所有项目),.I只需要打印特定项目中的工作簿(我知道项目名称和id)
用户Peh给了我很棒的代码来将数据从关闭的工作簿复制到打开的工作簿,但现在我想做相反的事情。我希望有一个打开的工作簿,其中包含要复制的公式和值,并将这些值作为值粘贴到关闭的工作簿中。我想从打开的工作簿的"AllData“选项卡中复制range B36:K36,以便将以K1开头的值粘贴到已关闭工作簿的Sheet1中,该工作簿名为"archive.xlsx”。
这是我当前的代码(来自互联网):
Sub CopynPasteWrkBk()
Dim InputFile As Workbook
Dim OutputFile As Workbook
Dim Inpu
希望有人能帮助我,我正在尝试引用图纸代码,而不是图纸名称,因为图纸名称根据我引用的工作簿而变化。
我目前使用的代码是这样的
'Control Card 3 extracting from a closed workbook in to my active sheet`
Range("C1196:C1219").Formula = "='[ASE Template White Book.xlsx]Cntrl 3'!$C6"
Range("D1196:D1219").Formula = "='[ASE Tem
因此,我试图创建一个宏,它将记录用户打开和关闭可变工作簿的用户名和日期,即正在打开和关闭的工作簿将发生更改。
到目前为止,我的代码将记录工作簿打开时的上述信息:-
Option Explicit
Private iNextRow As Long
Const HIDDEN_SHEET As String = "Sheet3"
Private Sub Workbook_Open()
With Worksheets(HIDDEN_SHEET)
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Sele
我不太确定该怎么做。
我不确定VLOOKUP是不是合适的工具。考虑到im查找的索引是列标题名称而不是数字?
这是我到目前为止所做的..
在一张纸上我有我的信息。三列专用于定义数据,第4、5和6行是数据本身。
Description Description Description Harry Paul David
Hairy Red Foot Very No Kinda
Ugly Blue Hair None A little A lot
Pretty White Dress Yes Average Sparkle
然后
当我使用这个代码并切换到另一个工作簿时,它会给出一个错误,我被告知在.Sheets之前使用工作簿引用,现在唯一的问题是,工作簿名称是动态的。工作簿的名称是在单元格C11中设置的,但后面还需要有XLSM。简单的解释我在想像这样的事情
Workbook("C11+.XLSM").Sheets("CalculationsCobalt").
这是现在使用的代码:
Private Sub ExcelStopWatchCobalt()
If Range("c13").Value = "" Then
MsgBox
我有下一个表,我试图在表上创建一个约束,说明Ter_ID column可以有相同的Ter_ID重复,但是对应的Status在任何时候都不能相同,因此,如果有人试图从U更新Ter_ID 100P Status到A,它将不会看到已经有一个包含相应数据的行。
Ter_ID Status Address
100P A Road1
100P U Road2
200R A Road2
我正在尝试将选定的单元格范围从一个工作簿复制到另一个工作簿中。这是到目前为止在第一个工作簿中使用的选择范围和复制代码:
Sub Copy()
'This selects the range of active cells, adds a border and copies all data.
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selectio
在编辑Excel工作簿的任何数据之前,我一直试图创建一个自动保存Excel工作簿备份副本的宏。
每次我调用它时,即使它成功地保存了一个新的副本,当它到达末尾时,代码就会停止执行,并且我试图在下面调用的宏不会执行。
我认为当我运行代码并创建新的备份版本时,代码继续在备份工作簿上运行,而不是在主工作簿上运行,所以当我关闭备份工作簿时,我会突然结束代码。
我想保存主工作簿的备份版本,关闭备份版本并继续主工作簿上的代码。
Public Sub BackupWorkbook()
Dim CurrentFile As String, BackupFile As String, DesiredWorkbo
我想不出怎么发送一个以上的工作簿!我知道通过电子邮件发送1个工作簿的几种不同方法,我将它们放在这里。
Sub SendActiveWorkbook()
ActiveWorkbook.SendMail _
Recipients:=Array("MyEmail@123.com", "AnotherEmail@123.com"), _
Subject:="Write subject here"
End Sub
和
Sub RouteActiveWorkbook()
我正在尝试打印一个excel工作簿作为PDF,但从pdf中排除标题为基本信息的第一个工作表。目前,整个工作簿都包含在PDF中
Option Explicit
Sub CreatePDF()
Dim IsCreated As Boolean
Dim PdfFile As String, Title As String
Dim s As Worksheet
Dim DoNotInclude As String
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With