无内容帖子

山菊花 · 发表于 2006-4-15 21:47

..

[此贴子已经被作者于2006-9-27 23:51:28编辑过]

Rowen · 发表于 2006-4-17 13:08

HAHA,是有人会用得着!

fainnt · 发表于 2006-4-17 17:47

楼主真实厉害

要多向楼主学习

tian-yun · 发表于 2006-4-18 23:19

怎么用不了啊

zaza99 · 发表于 2006-4-25 16:42

好.但为什么不自动采集数据呢.

山菊花 · 发表于 2006-4-25 23:03

以下是引用[I]zaza99[/I]在2006-4-25 16:42:08的发言：[BR]好.但为什么不自动采集数据呢.

已经做好自动采集数据，征求大奇大意见后重新改为手动采集的。

zaza99 · 发表于 2006-4-26 01:19

以下是引用[I]山菊花[/I]在2006-4-25 23:03:42的发言：[BR]
以下是引用[I]zaza99[/I]在2006-4-25 16:42:08的发言：[BR]好.但为什么不自动采集数据呢.
已经做好自动采集数据，征求大奇大意见后重新改为手动采集的。

是否能传一份已经做好自动采集数据的.谢谢.

山菊花 · 发表于 2006-4-26 17:17

自动采集数据代码如下：

Private Sub CommandButton3_Click()
On Error GoTo err1
Sheet1.UsedRange.ClearContents
Weburl = "URL;" & "http://www.fly.com.cn/Odds/Opened_Odds.asp"
With Sheet1.QueryTables.Add(Connection:=Weburl, Destination:=Sheet1.Range("A1"))
.Name = "sjh"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
Exit Sub
err1:
MsgBox "更新数据时发生错误。 ", 16, "提示"
End Sub

zaza99 · 发表于 2006-4-26 19:53

谢谢楼主

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