我试图将我的工作表保存为使用vba的pdf文件。工作表比A4页宽，并包含几个形状（从一边到另一边）。我希望工作表能够放在一个A4页面上，所以它应该按照屏幕上看到的那样进行重新调整。我正在使用以下代码： Sub Print_PDF()
Dim sFilename As String
Worksheets.Add.Name = "Helpsheet"
sFilename = "G:\anyt
早上好， 我试图找到一种方式来存储值的数组：通过一列 回路（B柱） 取值，商店他们在一个数组 遍历数组，并做一些文字处理 但是，我不能想办法来循环THROU gh列并将这些值存储在一个数组中。我已经通过堆栈溢出和谷歌，但还没有找到一个成功的解决方案（还）。 提前，谢谢你的帮助。 Sub collectNums()
Dim eNumStorage() As String ' initial st
我有一段简短的代码，在我发送电子邮件时运行。它会查看收件人地址和主题以查看它是否包含某些单词，然后弹出消息框提醒我们更新绘图版本控制。它适用于内部电子邮件地址，似乎在某些外部电子邮件地址上工作，但出于某种原因，它不喜欢我实际需要它留意的电子邮件地址。 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
我想在Word文档中找到ole对象，而且它似乎在InlineShapes(1).GroupItems。但不能访问组项目，因为它给我错误。 Sub findOle()
Dim shp As GroupShapes
Dim c As Integer
Set shp = ActiveDocument.InlineShapes(1).GroupItems
End Sub
我试图通过VBA代码将所有垃圾邮件移动到我的收件箱。不幸的是我得到这一行的“424对象所需”的错误： Item.Move (olFLD)
代码工作时，我尝试从收件箱邮件移动到另一个文件夹，但是当我尝试移动它不工作周围的其他方法从垃圾邮件到收件箱。 Dim OlNS As Outlook.NameSpace
Dim olFLD As Outlook.Folder
Dim olJunk As