求助：excel表里到期的项目在Outlook的行事历里自动出现提示

ck1668

上面49楼的第2点b〉请帮忙解释一下。即：下面这句代码中的7和10分别代表什么？多谢！ If Cells(i, 7) = 0 Or Cells(i, 10) = 0 Or Cells(i, 13) = 0 Then ' 0 = 今天到期。

[此贴子已经被作者于2006-3-7 19:53:38编辑过]

ck1668

以下是引用[I]lotustower[/I]在2006-3-7 19:21:33的发言：[BR]

Dim HaveItem As Boolean
HaveItem = False

上方 Dim 之下

i = 9 的 9是不是代表开始的行数

是

Chr(10) 是 Line Feed 加一行

i = i + 1

加一行

Dear lotustower，您说Chr(10) 是 Line Feed 加一行，能否再解释详细一点。 一个是10，一个是加一行，有点不太理解。还有，Line Feed 的中文是什么意思？多谢！

lotustower

Chr 函數

傳回一個含有與指定的字元碼相關之字元的 String

語法

Chr(charcode)

charcode 引數是一個用來識別某字元的Long

請注意

0 到 31 之間的數字與一般、非列印的ASCII碼相同，例如，Chr(10) 會傳回換行字元。charcode 的正常範圍為 0-255。然而，在DBCS系統，charcode 的實際範圍為 -32768 到 65535。

lotustower

Cells(row, column)

7 = 行 7 , i.e. G

10 = 行 10 , i.e. J

ck1668

Dear lotustower，非常感谢您讲解得这么详细，但由于我在程序这方面没有一点认识，对您53楼的Chr(10)讲解我还是不明白。对您54楼的讲解我也有一点疑问，那就是在这句代码Do While .Cells(i, 1) <> ""中的1又代表什么，不是很明白。

原本想等您讲解以后我自己再慢慢研究，因为这个帖子麻烦您实在太多了。另外，也因为这个帖子涉及的代码太复杂了，这么多天就您一个人在帮我回贴。我内心里真的有点过意不去。但现在看来不行，还得麻烦您再帮我看看附件（附件有２个sheet，因为客户不同，只好分２个sheet），如何设立程序码才能使附件２个sheet里到期的生产单号在Outlook里显示出来（红色字体的生产单号是到期的）。

如果不能同时显示２个sheet里的生产单号，那帮我删掉第１个sheet（sheet名叫做Bulk-Ann Taylor)，留下第２个sheet（sheet名叫做Bulk-Liz Claiborne ），看看能不能显示第２个sheet里的到期生产单号8529，8531，8532，8533，8534。如果sheet名的写法不正确，麻烦您帮我改一下。

我自己原来试了一下，我开始试着把第１个sheet删掉，只留下第２个sheet，并把这句代码If Cells(i, 7) = 0 Or Cells(i, 10) = 0 Then ' 0 = 今天到期中 的7改为12，10改为39（因为第２个sheet里有39栏），但不行，只好又来麻烦您了。多谢！

h6IKGc5y.rar (151.44 KB, 下载次数: 15)

2006-3-8 08:57 上传

点击文件名下载附件

[此贴子已经被作者于2006-3-8 8:57:21编辑过]

lotustower

ck1668 你在沒有 Excel VBA (Also Function) 知識下非常難達到你心中要求。因為 FireWall 我進入 ExcelHome 有艱難，可以上載最後的版本嗎?

ck1668

Dear lotustower，我知道是难为您了。但这个难题只有您才能帮我解决，其它高手好像都没有会这个的。

因为 FireWall 您进入 ExcelHome 有艰难，那我发邮件给您，好吗？您上面这个email address lotustower2@yahoo.com.cn 我之前试过好像不行，请另外给我一个。谢！

您说要我上载最后的版本指的是您最后帮我做的代码吗？现附上如下：

Option Explicit

' Set reference to Microsoft Excel 11 Object Library

Private Sub Application_Startup()

CreateNewAM

End Sub

Private Sub CreateNewAM()

Dim XL_app As Excel.Application

Dim XL_wb As Excel.Workbook

Dim OLAitem As Outlook.AppointmentItem

Dim Bodytxt As String

Dim i As Integer

Dim LastRow As Integer

Dim RowsCount As Integer

Dim Msg As String

Dim Rng As Range

Dim HaveItem As Boolean

HaveItem = False

Set XL_app = CreateObject("Excel.Application")

Set XL_wb = XL_app.Workbooks.Open("E:\OL_Reminder.xls")

Bodytxt = "今天到期生产单号" & Chr(10)

i = 9

With XL_app.Workbooks("OL_Reminder.xls").Sheets(1)

Do While .Cells(i, 1) <> ""

If Cells(i, 7) = 0 Or Cells(i, 10) = 0 Then ' 0 = 今天到期

HaveItem = True

Bodytxt = Bodytxt & .Cells(i, "B") & Chr(10)

End If

i = i + 1

Loop

End With

If Not HaveItem Then Bodytxt = "今天没有到期生产单号!"

On Error GoTo 0

Set OLAitem = CreateItem(olAppointmentItem) '工作

On Error Resume Next

With OLAitem

.Subject = "今天到期的工作"

.Start = Now

.End = Now

.ReminderMinutesBeforeStart = 30 '30分钟前提醒

.Body = Bodytxt

.Save

.Display

End With

XL_app.ActiveWorkbook.Saved = True

XL_app.Workbooks.Close

XL_app.Quit

Set XL_app = Nothing

End Sub

[此贴子已经被作者于2006-3-8 20:10:23编辑过]

lotustower

請到 http://www.excelhelp.net/cgi-bin/forum/leoboard.cgi 詢問 我在 ExcelHome IE 有問題, FireFox 慢 回答問題需要關閉 ZoneAlarm [U]ExcelHelp 的 Emily = Lotustower[/U] 55/F Excel 是最後的版本 ??

ck1668

对，55/F Excel 是最後的版本 ，多谢！

ck1668

Dear lotustower，上面55楼的问题可以解决吗？