打造EH社区最实用的开源通讯簿(附件已上传)

johnny05 · 发表于 2009-3-5 16:24

有没有2003版本的???
多谢啊

寅鹞 · 发表于 2009-3-5 16:45

原帖由 wangzqxa 于 2009-2-8 14:00 发表
兄弟是不是在VB6.0下，才能运行多谢告知！！

需要引用Outlook的库文件。所以没有安装Outlook就不能运行。你自己可以把Outlook相关的模块去除。

tezuka_private · 发表于 2009-3-5 16:55

tezuka_private@126.com
谢谢~

jxzym · 发表于 2009-3-6 15:32

非常期待：请给我一份，谢谢！syfhq@sina.com

ngf708 · 发表于 2009-3-6 15:50

下了，谢谢！

dbw296 · 发表于 2009-3-9 14:16

给我也来份dbw296@163.com

KING0001 · 发表于 2009-3-13 12:56

现在才看见但正是我要的能给我法一下吧邮箱：zhoudaxin@xinfei.com

fzwjz · 发表于 2009-3-18 08:01

提示: 作者被禁止或删除内容自动屏蔽

qxy0260 · 发表于 2009-3-20 08:13

楼主：
   我打开时出现如下错误！
   编译错误！
   找不到工程或库！
错误定位在如下代码段。

Sub main()
  Dim icol As Integer
  Call LoadData

  icol = ThisWorkbook.Sheets("联系人").[Z2].End(xlToLeft).Column
  ReDim strTitle(1 To icol)
  ReDim dMaxLenth(1 To 2, 1 To icol) '分别储存工作表自动列宽和工作表每列的最大字符宽度
  With ThisWorkbook.Sheets("联系人")
  For i = 1 To UBound(strTitle)
strTitle(i) = .Cells(2, i)
With Sheets("联系人").Columns(i)
   .AutoFit
   dMaxLenth(1, i) = .Width
End With
  Next i
  End With

  UserForm1.Show 0

End Sub

987654321 · 发表于 2009-3-20 08:42

给我一份:luguowangyuhang@tom.com

		自动登录	找回密码
密码			免费注册

[分享] 打造EH社区最实用的开源通讯簿(附件已上传)

反馈

fzwjz fzwjz 当前离线性别保密 UID 374963 阅读权限 0 注册时间 2007-11-30 在线时间小时最后登录 1970-1-1 积分 122 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-3-18 08:01 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报