vba

    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回答

    我用下面的函數來收集最頻繁的構件在陣列列: Function MosFreqinsimplearr(ByRef arrin As Variant, colindx As Integer) As Variant Dim i As Integer Set dic = CreateObject("scripting.dictionary") On Error Resume Next xMax

    0熱度

    1回答

    我的excel知識擴展到大多數類型的高級公式。我不太瞭解如何使用VBA或宏。我有一個問題,我正在努力解決使用公式。我有兩列看起來像這樣的一個表: x1 y1 x1 y2 x1 y3 x1 y4 x2 y2 x2 y3 x2 y4 x3 y1 x4 y2 我試圖將它們映射到AA表是這樣的: y1 y2 y3 y4 x1 1 1 1 1 x2 0 1 1 1 x3 1 0 0

    0熱度

    3回答

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

    -1熱度

    3回答

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

    -1熱度

    2回答

    我有下面的公式,我想將其轉換爲VBA中的函數。 =IFERROR(LEFT(B1,(FIND(",",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,"(",","),"-",","),"/",","))-1)),SUBSTITUTE(B1,".", "")) 我已經嘗試了一些東西,但只是不能讓它正常工作。 Test Function CharacterSwap(tex