Excelで簡易データベースを作成しています。入り口はひとつにしようと思い、メニューのブック以外にはロックをかけ、メニュー上のコマンドボタンから各ファイルを開こうと思っていますが、そのメニュー以外のファイルは互いにリンクしていて、リンクの更新時にもPass要求のBoxが開いてしまいます。リンク先のPassもVBAから入力できるようにならないでしょうか？
Sub FILEAopen()
Dim FILENAME As Variant
FILENAME = "C:\A.xls"
Const PSW As String = "APASS"
With Workbooks.Open(Filename:=FILENAME, updatelinks:=3, Password:=PSW, writerespassword:=PSW)
.Unprotect (PSW)
End With
End Sub
これで”A.xls"は開けるのですが、リンク先の”B.xls”もブックの保護をかけているため、パス要求のダイアログが開いてしまいます。Aのリンク先の”B.xls”も自動で開きたいのです。
どなたか宜しくお願い致します。
エクセル２００７でのオートシェイプのマクロ記録ができません。
エクセル２０００、エクセル２００３では、可能です（テスト済）。
２００７でのオートシェイプのマクロ記録のやり方は何か特殊なのでしょうか。
たとえば、エクセル２００７の開発タブから「マクロの記録」を選び、楕円を描いてマクロ記録を終了し、ＶＢＥでそのマクロを開いても、題名等はあるものの sub 題名（）から End Sub までの間にコードはなく空白になります。
おわかりの方にお尋ねします。
検索してみましたが、件数が多く閲覧した範囲では、見当たりませんでしたので、よろしくお願いします。
前回はありがとうございました。
まだ最終までは行ってないのですが、Wendyさんfumufumuさんに教えていただいたマクロともうまく動きます。
fumufumuさんの変数bufなんですが、この中身をシートに一行ずつ入れるにはどうするのでしょう。
Msgboxでは行ごとに綺麗に表示されす。
OpenAsTextStreamで開きReadAllで読み込んだbufの中身は配列になっているのでしょうか。
Splitで色々やってみたんですが、旨くいかいなです。
----------------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile(TXT).OpenAsTextStream
.Skip size
buf = .ReadAll
.Close
End With
Set fso = Nothing
MsgBox buf
------------------------------------------------------
fumufumuさんのDim fso As New FileSystemObjectでは動かなかったので Set fsoにするなど一部変えてあります。
WebBrowserを使ってgoogle検索をVBで作ったブラウザ上で行いたいです。
具体的には、
「ComboBoxで選択した値」と「TextBoxで書き込んだキーワード」を
＆検索したいのですが
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.All.GetElementsByName("q")(0).InnerText = TextBox1.Text
WebBrowser1.Document.All.GetElementsByName("q")(0).InnerText = ComboBox1.SelectedItem
WebBrowser1.Document.Forms(0).InvokeMember("submit")
End Sub
では、＆検索ができません。常にコンボボックスで選択されたものだけが
検索され、しかも無限に検索をします。
対処法を教えていただけないでしょうか？
WebBrowserを使ってgoogle検索をVBで作ったブラウザ上で行いたいです。
具体的には、
「ComboBoxで選択した値」と「TextBoxで書き込んだキーワード」を
＆検索したいのですが
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.All.GetElementsByName("q")(0).InnerText = TextBox1.Text
WebBrowser1.Document.All.GetElementsByName("q")(0).InnerText = ComboBox1.SelectedItem
WebBrowser1.Document.Forms(0).InvokeMember("submit")
End Sub
では、＆検索ができません。常にコンボボックスで選択されたものだけが
検索され、しかも無限に検索をします。
対処法を教えていただけないでしょうか？
タイトルの通りですが、エクセルでマクロを用いて、グラフの系列の参照元であるリンク数式を置換する方法を探しています。
エクセルでグラフを作成した時に"元のデータ"を見ると、"系列"タブの中に"名前"、"Xの値"、"Yの値"を指定するテキストボックスがありますよね？
あの中に書いてある文字列を置換したいんです。
以下の手法で作ってみたのですが、
『実行時エラー '13':
型が一致しません。』
というエラーが出てしまいます。
Sub Macro()
Dim BeforeValue
Dim AfterValue
BeforeValue = "ここに置換元文字列を入れます"
AfterValue = "ここに置換後文字列を入れます"
For Each Value In ActiveChart.SeriesCollection
With Value
.XValues = Replace(.XValues, BeforeValue, AfterValue)
.Values = Replace(.Values, BeforeValue, AfterValue)
.Name = Replace(.Name, "BeforeValue", "AfterValue")
End With
Next Value
End Sub
原因は.XValuesや.Nameがリンク数式を評価した後の値を配列で保持しているためだと思います。
そこで.XValuesや.Nameが保持しているデータが入っていたセルのアドレスを探すか、
あるいは.XValuesが評価している、元のリンク数式を保持しているプロパティ(か何か)を探せば文字列として置換できるのではないかと考えているのですがいかがでしょうか？
"元のデータ"を開いた時にもちろんリンク数式が表示されるので、どこかにリンク数式が文字列として保持されているはずだと思うのですが…。
このプロパティについて何かご存知の方、あるいは違う方法をご存知の方いらっしゃいませんでしょうか？
もしかしたら全然的外れの事をしているかもしれません。マクロを触り始めて日が浅いもので…。
その辺りの初心者的ミスも含めて間違い等、指摘して頂ける方でも結構です。
動作環境は
OS:Win2000
EXCEL2003
VB6.5
です。
何かお分かりになる方、よろしくお願い致します。
