エクセル２０１０です。
マクロの記録で
ファイル→オプション→リボンのユーザー設定→新しいタブ
で、新しいタブを挿入しても記録できませんでした。
２００３の時に使っていた
Sub Sample()
Dim myBar As CommandBar
Set myBar = CommandBars.Add(Name:="test")
myBar.Visible = True
End Sub
と言うコードがあるのですが、
これでリボンの追加ができるのかと思い実行してみましたが
何も変化が起きません。
2度目にこのコードを実行しようとすると
Set myBar = CommandBars.Add(Name:="test")
で、
実行時エラー5「プロシージャの呼び出し、または引数が不正です。」
になります。
どうすればいいでしょうか？
お世話になっております。 Excel2003を使用しております。
LabelとFrameを使い、プログレスバー表示したいと思っております。
ユーザーフォーム上に、
Label と Frameを置き、
Frameの中にLabelを置きます。 （ここは上手くできているか不安です）
UserFormInitializeに
With Me.Label1
.Top = 1
.Left = 1
.Width = 1
.BackColor = vbBlue
BarWidth = Me.Frame1.Width - 6
End With
そして、ためしにコマンドボタンを設置して、
Dim i, 最大値 As Long
最大値 = 100000
BarWidth = Me.Frame1.Width - 6
Do
If i = 0 Then
Me.Label1.Width = BarWidth * 1 / 最大値
Else
Me.Label1.Width = BarWidth * i / 最大値
End If
i = i + 1
Loop Until i = 最大値
上記のように記入してみました。
一瞬で表示されてしまいますし、
一度処理が終わっても、青いバーが表示されたままで
どうすればいいのか良く分かりません。
最後に Me.Label1.Width = 0 と書けばいいのは分かりましたが…
どうしたら、バーの伸び具合をゆっくり見られますか？
回答よろしくお願い致します。
以下のコードを使用し、WEBページから「レース検索結果」のテーブルを取得しようとしました。
エラーは出ないのですがコード下から５行目で「OK」のメッセージボックスが
表示されるはずなのですが表示されませんでした。
ローカルウィンドウで確認したところ、summary「レース検索結果」が取得できていませんでした。
WEBページのソースには「レース検索結果」というsummaryは存在しているんですが・・・
どなたかご教授ねがいます
OS:Windows 7
Excel:2007
InternetExplorer:11
Sub test()
Const strURL As String = "http://db.netkeiba.com/?pid=race_search_detail"
Dim objIE As New InternetExplorer
Dim objDoc As HTMLDocument
Dim objAllInput As Object
Dim objInput As HTMLInputButtonElement
Dim objAllTable As Object
Dim objTable As HTMLTable
With objIE
.navigate strURL
.Visible = True
End With
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
Set objDoc = objIE.document
Set objAllInput = objDoc.getElementsByTagName("input")
For Each objInput In objAllInput
If objInput.ID = "check_Jyo_09" Then
objInput.Checked = True
Exit For
End If
Next
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
For Each objInput In objAllInput
If objInput.Value = "検索" Then
objInput.Click
Exit For
End If
Next
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:10"))
Set objDoc = objIE.document
Set objAllTable = objDoc.getElementsByTagName("table")
For Each objTable In objAllTable
If objTable.Summary = "レース検索結果" Then
MsgBox "OK"
Exit For
End If
Next
End Sub
デスクトップにあるテキストファイル（html型）のソースを変数に格納したいのですが
ブラウザを立ち上げないで格納する方法はありますか？
今は、
Sub test()
Dim strFName As String
strFName = MyDesktop & "\test.html"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate strFName
strBody = objIE.Document.Body.innerHTML
End Sub
としていますが、ADOやその他テキスト操作を使って
ソースを変数に格納する方法があればおしえてください。
下記のような処理を実行すると応答なしとフリーズになってしまいます。
解決方法について教えてください
やりたいこと ：8列目にコードが並んでいて、重複コード（2回目以降）のものは赤色にする
困っていること：実行すると応答なしでフリーズしてしまう
→変数の上限が20000ではなく5000だと問題なく動く
Sub (1)()
Dim i As Long
For i = 3 To 20000
If Application.WorksheetFunction.CountIf(Range(Cells(3, 8), Cells(i, 8)), Cells(i, 8)) > 1 Then
Cells(i, 8).Font.ColorIndex = 3
End If
Next i
End Sub
お世話になっております。
環境は
windows7
ACCESS2013
ACCESS2013を使って特定フォルダにある、AAA1.csv AAA2.csv・・・・とファイル名下一桁が連番になっているデータをACCESS2013のT_AAAという名前のテーブルにインポートをさせたいです。
テーブルのフィールド名やデータ型はどのファイルも同一です。
色々とネットで検索したのですが、あまりに初心者レベルのために理解できずにおります。
アドバイスをお願いいたします。
ネットで調べて真似して書いてみましたがエラーになります。
DoCmdでエラーになります。
どこが悪いのかさっぱり解りません。
Private Sub コマンド0_Click()
Dim MyPath As String
Dim MyCSV As String
MyPath = "C:\Users\OOO_OOO\Desktop\test\AAA*.csv"
MyName = Dir(MyPath, vbNormal)
Do While MyName <> ""
DoCmd.TransferText acImportDelim, "T_AAA", _
"C:\Users\OOO_OOO\Desktop\test\" & MyName, False
MyName = Dir
Loop
End Sub
大変申し訳ございませんが、アドバイスをお願い申し上げます。
ＶＢ初心者です。色々調べて、セルに「画像名と画像サイズ一覧」を
書き出すことができました。
しかし、書き出せたのはjpgだけで、gifやpngをフォルダー内に入れると
エラーが・・・・
どうしたらgifやpngも書き出せるコードになるか教えてください。
よろしくお願いします。
書いたコードは下記です。
Sub GetImageSize(ByVal f, ByRef x, ByRef y)
Dim p
Set p = LoadPicture(f)
x = CLng(CDbl(p.Width) * 24 / 635)
y = CLng(CDbl(p.Height) * 24 / 635)
Set p = Nothing
End Sub
Sub main()
Dim FSO As New FileSystemObject
Dim FLD As Folder
Dim FLE As File
Dim FF As File
Dim x As Long
Dim y As Long
Set FLD = FSO.GetFolder("C:\画像の入ったフォルダー名")
For Each FF In FLD.Files
Call GetImageSize(FF, x, y)
Name = FF.Name
Name_x = x
Name_y = y
myCnt = myCnt + 1
Cells(myCnt, "A").Value = FF.Name
Cells(myCnt, "B").Value = x
Cells(myCnt, "C").Value = y
Next FF
End Sub
