我的Exel将一个pdf文件保存到OneDrive本地"C:\Users\Name\OneDrive\FileName.pdf“。我需要找到一些给出这个文件的URL的代码,这样它才能被输入到一个单元格中。URL用于创建QR代码,以便任何人都可以读取pdf-文件。
现在,在VBA创建QR代码之前,我必须手动找到URL并将其粘贴到电子表格中。我在Office 365中工作,但是..xlsm文件将分发给具有不同Excel版本的用户。我为这件事挣扎了一段时间,所以如果有人能帮忙,我很高兴。
CODE:
Sub QrLabelCreate()
'STEP 1:
'Excel V
我正在尝试将一系列工作表保存到为每个Excel工作表命名的单个文件中。
For Each ws In ActiveWorkbook.Sheets
fileName = RDB_Create_PDF(Range(ws.PageSetup.PrintArea), "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True)
Next
。问题是,每个ws的打印区域和文件名都会更改,但它只保存当前活动工作表中的信息--也就是说,我获得了保存在不同打印区域范围和不同文件名下的相同工作表信息。如
我在Excel工作表中有数据。其中四列具有合并的单元格。我必须解开两列("A“和"D"),并根据特定条件将数据放入未合并的单元格中。我尝试使用以下代码取消合并特定列,但没有取消合并单元格或返回任何错误消息
If sheet5.Range("A1", "A2783").MergeCells Then
sheet5.Range("A1", "A2783").MergeCells.UnMerge
然后我试了一下
If ActiveSheet.Cells.MergeCells Then
sht.Cells.Un
我只想问一下,是否可以使用VBA将文件保存在excel中,然后生成该文件路径的超链接以粘贴到不同的工作表上? 例如,我有一个工作簿,其中包含两个工作表:表单和日志。在表单工作表中,有一个包含文档编号的单元格。当我运行VBA代码时,它会将文档编号复制到日志工作表中。 Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("For
VBA程序的目的是将插入的信息填充到excel表中,完成后转换为PDF文件。然后要求用户选择保存路径。现在,我还想将该PDF保存到SharePoint的固定目的地。直到现在,我还不知道该如何告诉VBA SharePoint的道路。下面是当前保存我的文件的方法。保存到SharePoint是否以类似的方式工作?
Sheets("Example").Select
Dim varResult As Variant
Dim ActBook As Workbook
'Select path and file name
'PDF
varResult = Applicati
我正在尝试将一个工作表导出为PDF,但当我运行代码时,我一直收到1004错误。 我相信它链接到保存目标的文件夹路径。我尝试过以不同的方式定义文件路径,但仍然出现错误。 此代码应从单元格B1中提取文件名的一部分,并从工作表所在位置提取文件路径。PDF应保存到工作表的位置。我是VBA的新手。如有任何帮助,我们不胜感激! 以下是代码 Sub ExportAsPDFTest()
Dim Name As String
Dim Preface As String
Name = Cells(1, "B").Value
Preface = "PreR Summer 2019 -
非常新手的VBA编码器,我已经通过大量的跟踪和错误创建了一个代码来保存多个工作表作为独立的pdf:s排除一些工作表。现在,我想复制该代码并调整它,这样我也可以有一个宏将所有工作表保存到一个singel中,并以同样的方式排除一些工作表。这是我目前的密码,
Sub LoopSheetsSaveAsPDF()
'Create variables
Dim ws As Worksheet
'Loop through all worksheets and save as individual PDF in same folder
'as the Excel file
我正在尝试创建一个复制某些特定单元格的循环。我是VBA的新手,但我只能循环第一行。脚本的缺点是将Sheet2736中的特定单元格复制到另一个名为pre的excel工作表中。在满足特定条件的所有情况下,都应该这样做。到目前为止,我的代码看起来像这样: Sub copypre1()
Dim i As Integer
For i = 2 To 50
If Range("A" & i).Value = "Pre" Then
Range("A,B,C,D,F,G,H,I,K,L,M,S" & i).Select
R
我要做的事情:将Excel工作表中的一系列单元格导出为现有Word文档中的图像,然后将该Word文档保存为Word文档和PDF文件。Word文件和PDF文件的名称都在Excel工作表的单元格中。
问题:除了..pdf文件之外,几乎所有东西都能工作。它是生成的,但当试图打开它时,我会得到一个错误,说明文件不可读。
有人能帮忙吗?下面是我使用的代码--我从这个和其他论坛上的不同例子中组装了它(我真的是VBA初学者).
非常感谢!
代码:
Sub SaveAsWord()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Appl