vba

1熱度

1回答

如何簡化此代碼以刪除名稱管理器中的externaldata_ *。 ActiveWorkbook.Names（「ExternalData_21」）。刪除 ActiveWorkbook.Names（「ExternalData_22」）。刪除 ActiveWorkbook.Names（「ExternalData_23」）。刪除 ActiveWorkbook.Names（「ExternalDat

0熱度

1回答

在Word中循環表格並檢查複選框是否勾選

我有4列，每列有2組複選框，我正在尋找循環遍歷每個集合，並檢查兩個複選框是否都被選中，如果它們然後退出子集並且將該項目的名稱與在msgbox中的一組中選中的2個複選框進行檢查。 Set oRow = oTable.Rows Set oTable = doc.Tables(3) For Each oRow In oTable.Rows With oRow If .Cells

1熱度

1回答

從VBA調用WinSCP命令行時獲取「命令參數太多」

Upload file via FTP from Excel VBA非常有幫助，我使用代碼將本地文件夾同步到我的FTP服務器。 Call Shell(_ CurrentProject.Path & "\WinSCP.com /log=" & CurrentProject.Path & "\ftp.log /command " & _ """open ftp://user:[em

-1熱度

1回答

僅複製日期，而不是其背後的公式從一張紙到另一張

我想從數據表「數據」複製數據而不是其後的公式，將數據複製到表格「報告」中。 Sub CopyValueDown() Dim lRow As Integer lRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row If lRow > 1 Then Sheets("Report").Range("A1:

5熱度

4回答

excel vba string date date

Windows 10 Pro，區域設置爲英國英語。在Excel VBA我有一個字符串「2017年2月5日16:30」的是，在英國，是指「2017年05月02日16:30」但VBA變成這個美國格式莫名其妙，並在細胞提出「2017年5月2日16:30」的VBA代碼是這樣的 Dim sField As String sField = "02/05/2017 16:30" ws.Cells(1

3熱度

1回答

Vba代碼在同一工作簿的單獨工作表中打開多個文件

我有一個代碼，允許我在Excel工作簿中打開文件，但是我希望能夠在同一個工作簿中打開多個文件，名爲p00001，p00002 ，p00003等。有誰知道我可以如何編輯我的代碼來選擇所有以這種方式命名的文件，並在同一工作簿的不同工作表中打開它們？我的代碼是： Sub Open_Workbook() Dim my_FileName As Variant my_FileName

-1熱度

1回答

更新第一個單元格後強制用戶更新另一個單元格

我有一個電子表格，其中包含銷售清單。當用戶將「狀態」列設置爲「已關閉」時，我想強制他們在「已關閉日期」列中輸入日期。所以我有這個; A1 (Status), B1 (Closed Date) Open, <blank> Open, <blank> Closed, 1/1/2018 任何想法？奧利

-1熱度

2回答

HTML表格刮使用VBA

IM試圖從tr標籤的國家，但它只是給我的表的第一行我怎麼刮的特定行 Sub ipsearch() Dim x As Integer x = 2 Do Until x = 4000 Dim ie As New InternetExplorer ie.navigate "https://whatismyipaddress.com/ip/" &

1熱度

1回答

使用VBA複選框顯示其他值

如果選中該複選框，則此代碼用於放置單詞「New」，以及✓選中標記（如果未選中）。 If CheckBox2.Value = False Then Cells(3, 3) = ChrW(&H2713) # <-- checkmark ✓ Else: Cells(3, 3) = "New" End If 然而，目前，這只是地方的「新」字，如果複選框被選中，但如果不是選擇它，它不會將一個✓勾選

0熱度

1回答

運行時錯誤6069

你好傢伙我有爲我打開的循環內聯形狀（doc文件附加的xlsx文件）。它工作正常，但有時我得到一個錯誤： Run-time error 6069 它會通知我嘗試打開Excel應用程序，也許它沒有安裝（WOW）。當我調試它突出了一個車道 wddoc.InlineShapes(lShapeCnt).OLEFormat.Activate 我按下「運行」，它正常工作，就像沒有錯誤。但這是令人沮喪的，