先ほど、質問しました続きです。以下のVBAを作成しましたが、うまくいきません。助言お願いします。
Option Compare Database
Private Sub 実行_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim strName As String
Dim i As Long
strName = "エラー"
i = 0
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.Tables
If tbl.Name = strName Then
i = 1
If MsgBox(tbl.Name & "テーブルを削除しますか？", _
vbYesNo) = vbYes Then
cat.Tables.Delete tbl.Name
MsgBox tbl.Name & "テーブルの削除を完了しました。"
End If
Next tbl
If i <> 1 Then MsgBox strName & "テーブルが存在しません。"
Set cat = Nothing
End Sub
エクセルVBAで、ユーザーボックスを開いたときにテキストボックスにセルの値を自動で表示させたいのですが、うまくいきません。テキストボックスをクリックすると表示されるのですが・・・
Private Sub txt1_Change()
Sheets("Sheet1").Range("a1").Value=txt1.Value
End Sub
としたのですが、やはり間違いなのでしょうか？
URLからタイトルを抽出するマクロについて教えて下さい。
忍者ブログの記事タイトルをURLから抽出しようとしたのですが
文字化けしてしまい全く分かりません。
他のサイトやブログだと普通に抽出出来るのですが・・・
文字コード？か何かだと思うのですが、原因が分かりません。
ちなみに以下のマクロは、ネット上で検索して見つけたものを
そのままコピーして使用しています。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Public Sub ReadTitle()
Dim url As Range
Dim Http, buf As String
Set Http = CreateObject("MSXML2.XMLHTTP")
Set url = Range("A3")
Do While (url.Value <> "")
Http.Open "GET", url.Value, False
Http.Send
buf = StrConv(Http.ResponseBody, vbUnicode)
'msgbox buf
url.Offset(0, 1).Value = getTitle(buf)
Set url = url.Offset(1, 0)
Loop
Set Http = Nothing
End Sub
Private Function getTitle(buf As String) As String
Dim pos1 As Long, pos2 As Long
pos1 = InStr(1, buf, "<title>")
If pos1 = 0 Then
pos1 = InStr(1, buf, "<TITLE>")
If pos1 = 0 Then
getTitle = ""
Exit Function
Else
pos2 = InStr(pos1 + 7, buf, "</TITLE>")
End If
Else
pos2 = InStr(pos1 + 7, buf, "</title>")
End If
getTitle = Mid(buf, pos1 + 7, pos2 - pos1 - 7)
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
宜しくお願い致します。
VB.NET（2008）を初めて1週間の初心者です．昔はVB6.0を少し勉強したのですが，2008に移してから色々変わってしまってて，わからないことだらけなのでアドバイスをお願いします．
只今，PictureBox(640*480)に写し出した画像を二値化しようと取り組んでいます．
そこで，色成分を取り出す際に，以前（6.0）はPictureBoxに「.Point」をつけて取り出しをしていましたが，2008では何をあてはめて色の取り出しを行えばいいか全く分かりません…．自分で色々と調べてはみたのですが，うまくいかなかったので，こちらの方でご意見を頂ければ幸いに思います．
以下は，6.0のときの色抽出のプログラム部分です．
For y = 1 To 480
For X = 1 To 640
pColor(X, y, 0) = main.Point(X - 1, y - 1) Mod 256 '赤の成分の取り出し
pColor(X, y, 1) = Int(main.Point(X - 1, y - 1) / 256) Mod 256 '緑
pColor(X, y, 2) = Int(Int(main.Point(X - 1, y - 1) / 256) / 256) '青
Next X
Next y
