過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      23
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼実験  谷 誠之 02/8/25(日) 3:36
　　　┣Re:実験  コロスケ 02/8/26(月) 16:15
　　　┃　　┗テストコード　第2弾♪  コロスケ 02/8/26(月) 16:30
　　　┗Re:実験  JuJu 02/9/2(月) 10:36

　───────────────────────────────────────
　■題名 ： 実験
　■名前 ： 谷 誠之 <tanitomo@vbalab.net>
　■日付 ： 02/8/25(日) 3:36
　■Ｗｅｂ ： http://www.vbalab.net
　-------------------------------------------------------------------------
   
これは実験用の書き込みです。


　───────────────────────────────────────
　■題名 ： Re:実験
　■名前 ： コロスケ <corosuke@chan.co.jp>
　■日付 ： 02/8/26(月) 16:15
　-------------------------------------------------------------------------
   
コードのテスト投稿です。　HTMLで括ったコード♪



Sub Suicide()

'//テスト用投稿です。

　　Dim intCnt As Integer

　　With ThisWorkbook

　　　　.Save

　　　　For intCnt = 1 To Application.RecentFiles.Count

　　　　　　If Application.RecentFiles(intCnt).Path = .FullName Then

　　　　　　　　Application.RecentFiles(intCnt).Delete

　　　　　　　　Exit For

　　　　　　End If

　　　　Next

　　　　.ChangeFileAccess Mode:=xlReadOnly

　　　　Kill .FullName

　　　　.Close SaveChanges:=False

　　End With

End Sub


　───────────────────────────────────────
　■題名 ： テストコード　第2弾♪
　■名前 ： コロスケ <corosuke@chan.co.jp>
　■日付 ： 02/8/26(月) 16:30
　-------------------------------------------------------------------------
   
上手くいったみたいなので....テストコード　第2弾♪



Option Explicit



Sub LettesFromBillG()

'////////////////////////////////////////////////////////////////

'///[weekly ascii magazine] Lettes from BillG - outputs as a text file.

'///This procedure was made without the permission of weekly ascii magazine.

'///Corosuke corosuke@chan.co.jp

'////////////////////////////////////////////////////////////////



'///Declaration Variable/Constant

Const conUrl　 As String = "http://wam.ascii.co.jp/regular/bill_g/letter/mail/mail"

Dim ie As Object, i As Integer, j As Integer, k As Integer, f As Integer

Dim strIdx As String, strUrl As String, strFn As String, doc()



'///Initialization

On Error GoTo terminate

f = FreeFile

strFn = ThisWorkbook.Path & "\BillG.txt"

Set ie = CreateObject("internetexplorer.application")

　　

For i = 1 To 20 Step 10

　　strIdx = Format(i, "00") & "-" & i + 9

　　For j = i To i + 9

　　　　strUrl = conUrl & strIdx & "/" & "mail" & j & ".html"

　　　　'///Progress situation display

　　　　Application.StatusBar = strUrl



　　　　'///Processing on browser

　　　　With ie

　　　　　　.navigate strUrl

　　　　　　Do While .ReadyState <> 4: Loop

　　　　　　ReDim Preserve doc(k)

　　　　　　doc(k) = .Document.documentelement.innertext

　　　　　　k = k + 1

　　　　End With

　　Next

Next

　　

'///Text file making

　　Open strFn For Output As #f

　　　　For i = LBound(doc) To UBound(doc)

　　　　　　Print #f, doc(i)

　　　　Next

　　Close #f



terminate:

　　'///Error processing + End setting

　　ie.Quit

　　Set ie = Nothing

　　Application.StatusBar = False

　　MsgBox "...Done!"

End Sub


　───────────────────────────────────────
　■題名 ： Re:実験
　■名前 ： JuJu <juju-bbs@su-u.com>
　■日付 ： 02/9/2(月) 10:36
　-------------------------------------------------------------------------
   
INCMでの実験書き込みです。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      23