vba

0热度

1回答

我有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 我按下“运行”，它正常工作，就像没有错误。但这是令人沮丧的，

0热度

2回答

将图表另存为PDF

我试图将我的工作表保存为使用vba的pdf文件。工作表比A4页宽，并包含几个形状（从一边到另一边）。我希望工作表能够放在一个A4页面上，所以它应该按照屏幕上看到的那样进行重新调整。我正在使用以下代码： Sub Print_PDF() Dim sFilename As String Worksheets.Add.Name = "Helpsheet" sFilename = "G:\anyt