我試圖將我的工作表保存爲使用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