小编Sid*_*out的帖子

我有一个包含大量文章编号的excel列表,例如."23378847".我希望列表中存储的所有文章编号的图片都存储在我的文件夹中.

但结果将如下.它应该是23378847.jpg而不是152499

http://media.byggtjeneste.no/media/bilde/152499/LargeThumbnail
或
http://www.nobb.no/Nobbnr/OrginalBilde/23378847/152499

有没有办法让我可以制作阅读我文件的文章,并使用与列表中相同的文章编号保存图片？

想在VBA范围内做到这一点(其他用户没有其他开发工具可以修改).我知道第三方应用程序(例如iMacros)做类似但希望尽可能通用.该商店使用XP和Excel 2003.

(1) VBA子程序控制InternetExplorer浏览器自动查看网站,表单提交等.

(2)有没有办法从WebBrowser的内容中获取屏幕截图？没有凌乱的SendKeys方法？.NET有一个Webbrowser.DrawToBitmap方法,但无法找到一个简单的VBA解决方案.想要整个屏幕,包括"低于折叠" - 滚动条下方......

我的客户正在收到编译错误; 在他的Excel 2010版本上找不到项目或库,但是我没有在我的2010版本上找到它.如何调整此代码以使其不会出现.当以下代码中出现错误时,"对于选择中的每个单元格"中的文本"单元格"将突出显示:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$9" Then
Columns("D:CB").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False

Sheet17.Range("E48:CB48").Select

For Each cell In Selection
    If cell = 0 Then
       Range(cell.Address).EntireColumn.Hidden = True
    End If
Next

Application.ScreenUpdating = True
Sheet17.Range("b9").Select
End If

End Sub`

我的客户也在报告以下代码中的错误,并突出显示"响应"一词.在我的Excel 2010版本中,这对我来说也不是问题.非常感谢任何和所有帮助.

If Sheet1.Range("E18") = 3 Then
Response = MsgBox("Reminder Emails have been set to be sent automatically at " &               Sheet1.Range("f18").Value & ", " & Sheet1.Range("Q4").Value & " day(s) before" & vbCrLf & …

我正在使用VBA阅读一些excel单元格.

Function getData(currentWorksheet as Worksheet, dataStartRow as Integer, _
dataEndRow as Integer, DataStartCol as Integer, dataEndCol as Integer)

    Dim dataTable as Range
    dataTable = currentWorksheet.Range(currentWorksheet.Cells(dataStartRow, _
    dataStartCol), currentWorksheet.Cells(dataEndRow, dataEndCol))

    getData = dataTable

EndFunction

它抛出错误,对象变量或未设置块变量.如何在变量中取这个范围？请指导我.

我有两个问题.

1. 当我按下esc按钮然后关闭Userform1

2. 当我输入open的TextBox1则Userform2应该显示.还清楚TextBox1的Userform1自动.

我试过以下代码:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If textbox1.value = "open" then
        userform2.show
        textbox1.value =""
    End If
End Sub

是)我有的

让我们举一个有效的代码示例.

Sub Sample()
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Columns(1).TextToColumns _
        Destination:=Range("A1"), _
        DataType:=xlFixedWidth, _
        FieldInfo:=Array( _
                        Array(0, 1), Array(60, 1), Array(120, 1), Array(180, 1), _
                        Array(240, 1), Array(300, 1), Array(360, 1), Array(420, 1) _
                         ), _
        TrailingMinusNumbers:=True
End Sub

我想要的是

在一小组数据中,上述代码有效.但是,如果我想说出来Array(2700,1)怎么办？这意味着我必须写46时间Array(0, 1), Array(60, 1)...Array(1080, 1)....Array(2700, 1)

我试过了什么

我试过用这种方法

Sub Sample()
    Dim ws As Worksheet
    Dim MyArray
    Dim MyStr As String
    Dim i As Long

    For i = 0 To 2700 Step …

首先,我在15年的Excel编程中从未见过这样的东西.

在较轻松的音符上,我觉得这个特殊的Excel文件是闹鬼的:P

严肃地说,我真的无法理解发生了什么.

问题

代码(我没有写它)根据条件运行并隐藏行.当您单击除行C列以外的任何单元格时59,它会显示它来自行58.仅在单元格C中,它显示正确的地址.

截图

我试过了什么？

1. 首先我认为这是一个ScreenUpdating问题,但正如你可以看到代码,这被排除了.
2. 我手动进入从Col A到Col D开始并在Immediate窗口中输入的所有单元格?Activecell.Row.我有58,59,58,58
3. 检查谷歌是否有任何人遇到过这种问题.但找不到单个实例!我不知道还有什么问题.

码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i, j, k, lastrow As Long
    Dim finlast As Long

    Application.ScreenUpdating = False

    'Income_Disc
    lastrow = Sheets("Financial_Disc1").Range("E65536").End(xlUp).Row
    finlast = Sheets("Financial_Disc").Range("A65536").End(xlUp).Value + 1

    If Target.Column = 9 And Target.Row = 1 Then
        'Unhide Rows if I1 is double clicked
        Sheets("Financial_Disc1").Rows("1:65536").EntireRow.Hidden = False
    Else
        If Target.Row > 7 And Target.Row …

我正在使用其他人创建的Excel 2010中的工作簿(我不知道他们使用的是哪个版本),其中有一个调用宏的按钮.定义了很多宏,所以我右键单击它以找出它调用的是哪一个,但是没有出现上下文菜单.相反,当我单击关闭时,按钮会变大.我可以连续多次让这种情况发生,就像我想的那样.另一个按钮是相同的工作表,具有相同的上下文菜单问题,但文本不是增长,而是每次缩小.当我这样做时,还有另一个按钮正常工作.

我正在使用Excel VBA应用程序.

我的公司想把它变成一种产品.此应用程序只能在一个系统上安装.有人可以帮我这个.

目标:正如标题所示,我们如何在不使用任何第三方控件的情况下在userform上显示工作簿.

通过Display,我的意思是显示它在一个窗体,其中用户可以选择一个工作表,并查看工作表的内容.

这篇文章试图自我回答这个问题.