小编Sid*_*out的帖子

我开发了一个使用的Excel 2010 VBA宏VBScript.RegExp.我的一个用户显然使用支持VBA的Excel Mac 2011,但没有VBScript.RegExp.

我看过几篇提到它的帖子可以创建你自己的RegEx函数AppleScript,可以由VBA宏调用.但是,似乎必须有Mac版本的Excel文件和Windows版本.这不太理想.

是否有另一种方法可以在VBA中实现与Windows和Mac兼容的正则表达式？

我有一个文件夹,我每天都会收到1000多个excel文件,它们都是相同的格式和结构.我想做的是每天在所有100多个文件上运行宏？

有没有办法实现自动化？所以我可以每天在1000多个文件上继续运行相同的宏.

如果Android应用程序想要使用Alarm Manager Service,那么应用程序需要具有哪些权限？

我已经测试过,应用程序似乎不需要任何权限来使用Alarm Manager Service.

真的吗？

我有一个打开的Excel文件并使用VB脚本,我只需要在Excel工作表中搜索列"A",直到它与文本字符串匹配.当脚本找到匹配项时,我希望看到找到匹配项的单元格的行号.感谢您的帮助!

我有一个excel,用于记录您摄取特定日期和膳食的食物.我有一个网格,其中每一行代表你吃的食物,它有多少糖,等等.

然后我添加了一个保存按钮,将所有数据保存到另一个表格中的表格中.

这就是我尝试过的

    Public Sub addDataToTable(ByVal strTableName As String, ByRef arrData As Variant)
    Dim lLastRow As Long
    Dim iHeader As Integer
    Dim iCount As Integer

    With Worksheets(4).ListObjects(strTableName)
        'find the last row of the list
        lLastRow = Worksheets(4).ListObjects(strTableName).ListRows.Count

        'shift from an extra row if list has header
        If .Sort.Header = xlYes Then
            iHeader = 1
        Else
            iHeader = 0
        End If
    End With

    'Cycle the array to add each value
    For iCount = LBound(arrData) To UBound(arrData)
        **Worksheets(4).Cells(lLastRow + 1, iCount).Value = …

我今天发现了一个非常有趣的错误,即它是否是一个错误.

你能否确认一下你是否可以复制它？如果它是一个bug并且没有报告,那么我可以这样提交.如果任何Excel-MVP想要将其作为错误提交,我也可以.

让我们说在sheet1单元格中A1,你有一个公式= $B$2+ $B$3.现在确保您的单元格已被选中.现在将此代码粘贴到模块中.

Sub Sample()
    Dim r As Range, sPre As String, sAft As String
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    sPre = "$B$2": sAft = "$C$3"

    On Error Resume Next
    Set r = ws.Range("A1:A2").SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0

    If Not r Is Nothing Then r.Replace what:=sPre, _
                                       replacement:=sAft, _
                                       lookat:=xlPart, _
                                       MatchCase:=False
End Sub

理想情况下,代码应该已经工作,并且= $B$2+ $B$3应该已经= $C$3+ $B$3 …

我有一张桌子,称之为TBL.它有两列,称为A和B.现在在查询中我需要一列作为A,其他列应该是所有B的逗号分隔列表,它们在TBL中对抗A. 例如TBL是这样的

1阿尔法

2 Beta

1 Gamma

1达美

查询结果应该是

1 Alpha,Gamma,Delta

2 Beta

这种类型的东西很容易用存储过程中的游标.但我无法通过MS Access来实现,因为它显然不支持存储过程.有没有办法在MS访问中运行存储过程？或者有没有办法通过SQL来运行这种类型的查询

这是有关使用VBA发送电子邮件的几条消息的后续内容.

大多数建议使用Outlook,CDO或MAPI:

Set appOL = CreateObject("Outlook.Application") 

Set msgOne = CreateObject("CDO.Message") 

Set mapi_session = New MSMAPI.MAPISession

但显然Outlook将要求我更改我们的工作组安全设置,CDO和MAPI将要求我添加DLL或其他东西.

我正在尝试使用Excel来组织工作中的组分配,我无法以任何方式修改其他人的计算机.

有没有更简单的方法从Excel宏发送电子邮件？
我需要的只是消息正文中的一个文本块,没有附件.

我整个星期都在浏览谷歌,MSDN和StackOverflow,而且我被困在一条缓慢的船上无处可去.

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

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

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

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

情景

Word文档嵌入在Excel 2011文件中.我需要将其保存为pdf.

如果它是Excel 2010,那么它不会是一个问题,因为Win Pcs中的MS-Office支持OLE自动化.

我做了什么？

这是我在Excel 2010中尝试的代码.

Option Explicit

Sub Sample()
    Application.ScreenUpdating = False

    Dim shp As Shape
    Dim objWord As Object
    Dim objOLE As OLEObject

    Set shp = Sheets("Sheet1").Shapes("Object 1")

    shp.OLEFormat.Activate

    Set objOLE = shp.OLEFormat.Object

    Set objWord = objOLE.Object

    objWord.ExportAsFixedFormat OutputFileName:= _
            "C:\Users\Siddharth Rout\Desktop\Sid.pdf", ExportFormat:= _
            17, OpenAfterExport:=True, OptimizeFor:= _
            0, Range:=0, From:=1, To:=1, _
            Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=0, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

    objWord.Application.Quit

    Set objWord = Nothing
    Set shp = Nothing
    Set objOLE = Nothing …