excel-vba

    0熱度

    0回答

    在Control Panel> Printer and Faxes我的默認打印機,是HP LaserJet P2035 on Ne02: 我有連接到我的系統2臺活躍打印機。 我想PrintOut與我的第二打印機,其是:HP LaserJet Pro MFP M127-M128 PCLmS on Ne01: 有這Sheet1 我PrintOut嵌入(作爲圖標)以上嵌入文檔MS-Word文檔。 我的代

    10熱度

    2回答

    我已經寫在VBA刮刀解析從洪流站點的某些影片信息退出瀏覽器。我用IE和queryselector完成任務。當我執行我的代碼時,它會解析一切,並彈出一個錯誤。看起來這個錯誤似乎是無處不在,而不是繼續。如果我取消錯誤框,那麼我可以看到結果。我已經上傳了兩張圖片,向您展示我遇到的錯誤。我如何成功執行代碼而不會出現任何錯誤?提前致謝。 下面是完整的代碼: Sub Torrent_Data() D

    2熱度

    1回答

    我有一個主子,使得使用一個Client類:與100 000Clients創建一個數組並循環陣列之上100次,每次設置不同的隨機數到每個Client。 Sub start() Application.ScreenUpdating = False Dim j As Long Dim clientsColl() As Client ReDim clientsC

    0熱度

    1回答

    我創建了一個DLL(使用C++),它依賴於sqlite3.dll(用於數據庫訪問& sqlcipher),我試圖使用VBA來訪問它。在VBA我使用以下聲明: Declare Function GetData_VBA Lib "xyz.dll" (ByVal path As String, ByVal id As String, ByRef inputArr() As String, ByRef o

    -2熱度

    1回答

    我是VBA的新手。 Endstate - 在一個範圍內搜索並計數用戶指定的填充顏色計數合併單元格(我知道,合併遺址所有內容)的唯一單元格值爲一個整體單元格。 我已經編譯了下面的代碼,但它不能正常工作,任何幫助將不勝感激! Function CountUniqueColorBlocks(SearchRange As Range, ColorRange As Range) As Long Dim c

    0熱度

    1回答

    我希望我的宏在單獨的IE選項卡中打開存儲在電子表格中的每個鏈接。我是成功的,打開第一個鏈接,但在循環的第二次迭代某種原因,我得到: 自動化和error.The接口是未知 錯誤。 我懷疑宏在第一次迭代後失去IE對象引用,但我不知道爲什麼。 範圍設置OK。 下面是代碼: Sub OpenCodingForms() Dim wb1 As Workbook Dim ws1 As Worksheet

    0熱度

    1回答

    如何刪除返回字符串中有問題的空白區域? 我在Excel中使用單元格內的函數,我有一個字符串,我在其中找到特定的文本並將其移動到同一字符串中的另一個地方。 我的結果很好,除了它們包含一個額外的空白,我無法弄清楚如何刪除。我相信這對你來說很簡單,但我對於正則表達式和學習很陌生。 示例文本字符串: 999999 - Blah Blah Blah 8888 blah blah 期望的結果是: 9999

    0熱度

    3回答

    我的工作流程通常包括啓動一組EC2服務器,並讓它們在Excel工作簿的不同部分上工作。它不理想,但它是如何。我想盡可能自動化這個過程。 理想情況下,我會在啓動時創建一個打開Excel工作簿的AMI。然後,該工作簿將自動運行一個腳本,該腳本從保管箱文件夾中獲取已命名的Excel工作簿,打開該工作簿並運行其自動腳本。這樣我所要做的就是編寫第二個Excel工作簿的腳本,給它一個「魔術」名稱,將它上傳到保

    0熱度

    1回答

    我在Excel中創建了一個搜索表格,我想用VBA代碼搜索工作簿其餘部分中的特定單詞。這是我的表格的一個例子。 水果 商店 區 我已經設置這些值作爲一個字符串,但我有具有一個項目的空白,然後運行宏麻煩。所以,如果我只想找到水果和麪積,它不會運行,因爲商店是空白的。有沒有一種方法可以搜索工作簿而不必填寫每行? 這是我用來複制數據的代碼。 finalrow = Cells(Rows.Count, 1).

    -1熱度

    3回答

    我是絕對新的Excel和宏VBA我有以下問題。 我寫了這個代碼打印從3TH行開始到第5行的ķ列單元格的內容: Dim outQuantityRange As Range Set outQuantityRange = Range("K3:K5") For Each currentOutQuantity In outQuantityRange.Cells MsgBox (curren