标签: excel-2007

我有一个 Windows 窗体应用程序，当它启动时，需要查看用户计算机上是否安装了 Excel，如果没有，则显示一条消息，通知用户部分功能将被禁用。

他们是执行此检查的简单方法吗？

在 Visual Studio 2008 中使用 VB.Net

我们使用 Microsoft 提供的默认 MSF Agile 5.0 流程模板来运行我们的项目。具体来说，Iteration Backlog Excel 表对于进行项目管理非常有用。

然而，我们遇到了第 1 页上的迭代积压工作不是最新的情况。打开 Excel 工作簿后，用户必须明确单击“团队”选项卡上的“刷新”按钮才能查看最新数据。

问题：我们如何强制 Excel (2007) 在打开工作簿时刷新迭代积压并与其连接的 TFS 2010 工作项查询同步？

其他人提供的记录宏以单击“刷新”按钮的建议不起作用，因为记录的宏无法使用树层次结构刷新查询（至少，执行宏时会发生错误告诉我）。录制的宏执行其他操作，只需单击按钮 :-)

我试图在 Excel 中为我的用户定义函数（UDF）添加一些帮助，使用 VBA（Visual Basic for Applications）编写。我知道如何添加描述。知道如何在蓝色链接“有关此功能的帮助”中添加帮助，而不是让它指向显示“无可用帮助”的 MsgBox 吗？

我试图运行一个宏，它查看一个字符串并确定最后两个字符是否等于“XX”，然后删除整行。

我收到一个对象错误哦，下面突出显示。

Sub Oval2_Click()


Last = Cells(Rows.Count, "E").End(xlUp).Row

For i = Last To 1 Step -1

`If (Right(Cells(i, "E"), 2).Value) = "TZ" Then`

    Cells(i, "E").EntireRow.Delete

End If
Next i

End Sub

请帮忙！谢谢你。

我正在尝试在列中创建一个唯一名称列表,但我从未理解如何ReDim正确使用,有人可以帮我完成这个并解释它是如何完成的,或者更好地建议另一种更好/更快的方法.

Sub test()
    LastRow = Range("C65536").End(xlUp).Row
    For Each Cell In Range("C4:C" & LastRow)
        OldVar = NewVar
        NewVar = Cell
        If OldVar <> NewVar Then
            `x =...
        End If
    Next Cell
End Sub

我的数据格式为:

Stack
Stack
Stack
Stack
Stack
Overflow
Overflow
Overflow
Overflow
Overflow
Overflow
Overflow
Overflow
.com
.com
.com

所以基本上一旦它具有名称,它将永远不会再在列表中再次弹出.

最后,数组应包括:

    Stack
    Overflow
    .com

我在 Excel 中编写了一个用户定义的函数。它工作得很好，没有任何问题。我什至在对象属性菜单下为它写了一个描述。

问题是，当我开始输入函数时，我的 UDF 从未出现在 Excel 下拉菜单中。我希望用户在进入单元格并开始输入函数时能够看到我的 UDF（名为removeNumbers）。

我还希望他们能够看到我写的描述，就像标准的 Excel 函数一样。

最后，有没有一种方法可以为我的函数作为输入的每个参数提供描述？

这是实际的代码，尽管我认为没有必要回答我的问题。

Function removeNumbers(sInput As String, sChoice As Boolean) As String
    Dim sSpecialChars As String
    Dim i As Long

    If (sChoice = True) Then 'if true is selected, will remove all number including 0
    sSpecialChars = "0123456789" 'This is your list of characters to be removed
    For i = 1 To Len(sSpecialChars)
        sInput = Replace$(sInput, Mid$(sSpecialChars, i, 1), "")

    Next
    End If

    If (sChoice = False) Then 'if …

我当前项目的一部分涉及使用 SSIS 包将具有多个选项卡的 Excel 2007 电子表格转换为相同数量的管道分隔平面文件。我有一个数据流任务，它打开 excel 文件并将所有选项卡的名称选择到对象变量中。for each 循环中的第二个数据流任务尝试从每个选项卡读取前 32 列。第二个数据流任务中的 excel 源设置为使用来自变量的 sql 命令，该变量是一个表达式，将选项卡名称替换为其他常量 sql 语句，如下所示：

SELECT F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16, F17,
    F18, F19, F20, F21, F22, F23, F24, F25, F26, F27, F28, F29, F30, F31, F32
FROM [Securities Portfolio$]

excel连接管理器中的“第一行有列名”框没有标记。

事情是这样的：这适用于大多数选项卡。上面那个有效。但是，其中三个导致以下错误：

The SQL command requires 2 parameters, but the parameter mapping only has 0 parameters.

我修改了包以打印日志文件中使用的所有 SQL 语句。唯一的区别在于选项卡名称。没有任何问号，这就是我认为 SSIS 用来标记参数的方法。我无法弄清楚是什么导致了这种情况，甚至无法弄清楚失败的 SQL 查询与正常工作的查询有何不同：

SELECT F1, F2, …

我有一个包含给定数据的工作表,

我需要使用Micorosft outlook以特定日期所需的格式通过电子邮件发送数据(比如说日期是2015年1月5日).请参阅下面

这就是电子邮件的外观,

我是业余开发人员,通过VBA格式化电子邮件.代码是在Excel 2007工作簿的模块中编写的,在这里,

Public Function FormatEmail(Sourceworksheet As Worksheet, Recipients As Range, CoBDate As Date)

    Dim OutApp As Object
    Dim OutMail As Object
    Dim rows As Range

    On Error GoTo FormatEmail_Error

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    For Each rows In Recipients.Cells.SpecialCells(xlCellTypeConstants)

        If rows.value Like "?*@?*.?*" Then

            Set OutMail = OutApp.CreateItem(0)

            On Error Resume Next
            With OutMail
                .To = rows.value
                .Subject = "Reminder"
                .Body = "Hi All, " & vbNewLine & _
                         vbNewLine
                .display
            End With
            On …

Run Code Online (Sandbox Code Playgroud)

我在VBA中为Excel创建了一个加载项,现在我需要对代码进行更改,但文件将无法保存.我打开.xlam文件,我做了更改,ctrl-S保存没有错误弹出,关闭.但是当我重新开放时,我所做的改变都没有.是什么赋予了？我有一些特殊的方法来保存加载项以使更改坚持下去吗？

我有一个带有两列的excel文档.我每天只在一列中添加文本,我希望在第二列中自动添加当前日期和时间.

该字段也可以隐藏,我可以在我想要的时候获取但是想要在该行中添加时的日期时间

可能吗