小编Dak*_*ota的帖子

在SQL Server Management Studio中,我尝试使用日期变量来引用特定的日期和时间,如下所示.

Declare @specified_date Date
set @specified_date = '07-01-2013'

Select * 
from etc
Where CreatedDate > CONVERT(datetime, @specified_date & '00:00:00.000' )

此代码无效,我收到此错误:

数据类型date和varchar在'&'运算符中不兼容.

正在使用的数据上都有日期和时间代码,而不是更改多个查询,我希望能够只定义一次日期并让变量携带它.如果有人知道解决方案,那就太好了.

我正在处理代码,基本上遍历我的工作簿中的每个工作表,然后更新列宽.以下是我写的代码; 我没有收到任何错误,但它实际上也没有做任何事情.任何帮助是极大的赞赏!

 Option Explicit
 Dim ws As Worksheet, a As Range

Sub forEachWs()

For Each ws In ActiveWorkbook.Worksheets
Call resizingColumns
Next

End Sub

Sub resizingColumns()
Range("A:A").ColumnWidth = 20.14
Range("B:B").ColumnWidth = 9.71
Range("C:C").ColumnWidth = 35.86
Range("D:D").ColumnWidth = 30.57
Range("E:E").ColumnWidth = 23.57
Range("F:F").ColumnWidth = 21.43
Range("G:G").ColumnWidth = 18.43
Range("H:H").ColumnWidth = 23.86
Range("i:I").ColumnWidth = 27.43
Range("J:J").ColumnWidth = 36.71
Range("K:K").ColumnWidth = 30.29
Range("L:L").ColumnWidth = 31.14
Range("M:M").ColumnWidth = 31
Range("N:N").ColumnWidth = 41.14
Range("O:O").ColumnWidth = 33.86
End Sub

我正在开发一个项目,其中我有一个帐户ID列表,我正在尝试做的是创建一个将与Outlook连接的宏,在我的收件箱中搜索具有特定条件的任何电子邮件,然后返回"如果找到Y"或"N",如果找到,则发送电子邮件的人和发送的时间.下面是我正在使用的代码; 我需要宏来搜索电子邮件的正文而不是主题行.当我用[Body]替换[Body]时,宏运行没有错误,但没有返回电子邮件(我放置了几个测试电子邮件以便捕获).我正在运行Excel和Outlook 2007,并且已经在VBA中引用了MS 12.0 Excel和Outlook库.

Sub Work_with_Outlook()

    Set outlookApp = CreateObject("Outlook.Application")

    Dim olNs As Outlook.Namespace
    Dim Fldr As Outlook.MAPIFolder
    Dim olMail As Variant
    Dim sir() As String

    Set outlookApp = New Outlook.Application
    Set olNs = outlookApp.GetNamespace("MAPI")
    Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
    Set myTasks = Fldr.Items

    Set olMail = myTasks.Find("[Subject] = ""123456""")
    If Not (olMail Is Nothing) Then
        olMail.Display
    End If

End Sub