Excel2003 でマクロ作成中の超初心者です。以下のコードで21年度のフォルダが開けます。が、21年度\個人別 という下位のフォルダを指定したいのです。pathを\C・・・から指定すればできそうですが、このマクロを他のＰＣで実行した場合pathがみつかりませんの
エラーが出ると思います。どう指定したらよろしいでしょうか。
Private Sub CommandButton7_Click()
Dim OpenFileName As String
On Error Resume Next
ChDir "21年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
Windows Vista Businessを買えばXPにダウングレードができるPCがありますが、普通にWindows Vista HomeをとXPのProを買ってもWindows Vista HomeにXP Proをインストールできますか？
また、外付けHDにOSをインストールできるソフトウエアがヨドバシにあったのですが、その場合VistaとXPを交互にインストール可能ですか？
XPをインストールした場合、デメリットはありますか？
VB6.0を使って資料のデーターベースを作っているのですが、質問させてください。
アクセスのmdbファイルからデータを読みとり、Command1ボタンを押した際にテキストボックスに入力した任意の文字列が含む資料名のレコードを抽出する機能を持たせています。
また、OPTIONボタンでＡ～Ｊまでの資料区分ごとに絞り込みを行う機能（option7を押した場合は全資料区分から検索）も持たせているのですが、テキストボックスに文字列を入力後、OPTIONボタンで資料区分Ａを検索⇒Command1ボタン⇒OPTIONボタンで資料区分Ｂ⇒Command1ボタン等のように繰り返しての検索をすると時折フリーズして動かなくなります。特に該当レコードが0の後に発生する場合が多いようです
原因が分からず困っています。よろしくお願いします。
Private Sub Command1_Click()
Dim kubun As String '文字列型 資料の区分
Dim mojiretsu_k As String '文字列型 検索用文字列
Dim a As Integer
If Option7 = True Then'全文書区分から検索
ElseIf Option8 = True Then
kubun = "Ａ"
ElseIf Option9 = True Then
kubun = "Ｂ"
ElseIf Option10 = True Then
kubun = "Ｃ"
ElseIf Option11 = True Then
kubun = "Ｄ"
ElseIf Option12 = True Then
kubun = "Ｅ"
ElseIf Option13 = True Then
kubun = "Ｆ"
ElseIf Option14 = True Then
kubun = "Ｇ"
ElseIf Option15 = True Then
kubun = "Ｈ"
ElseIf Option16 = True Then
kubun = "Ｉ"
ElseIf Option17 = True Then
kubun = "Ｊ"
End If
' 接続文字列を設定
Adodc1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=資料.mdb;" & _
"Mode=Read"
' レコードソースにSQL文を指定
mojiretsu_k = Text1.Text
If Option18.Value = True Then '現行文書のみ検索
If Option7.Value = True Then'全文書区分から検索
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' and 廃止フラグ = False order by ID"
Else'指定された資料区分で検索
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' and 資料区分 = """ & kubun & """ and 廃止フラグ = False order by ID"
End If
ElseIf Option19.Value = True Then '廃止文書のみ検索
If Option7.Value = True Then
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス,廃止フラグ From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' and 廃止フラグ = true order by ID"
Else
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス,廃止フラグ From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' and 資料区分 = """ & kubun & """ and 廃止フラグ = true order by ID"
End If
ElseIf Option20.Value = True Then '現行＋廃止文書を検索
If Option7.Value = True Then
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス,廃止フラグ From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' order by ID"
Else
Adodc1.RecordSource = "Select 資料区分,資料名称,ファイルパス,廃止フラグ From T_SHIRYO WHERE 資料名称 like'%" & mojiretsu_k & "%' and 資料区分 = """ & kubun & """ order by ID"
End If
End If
' データを再取得
Adodc1.Refresh
With MSHFlexGrid1
.FocusRect = flexFocusNone
.HighLight = flexHighlightAlways
End With
End Sub
ＰＣの電源入れてしばらくしたら勝手に電源が切れました、入れなおすと一番最初のグリグリする画面のあとAlert ! Os Install Mode enabled.Amount of available memory linitedto256MB.strike the F1keytocontinue,F2 to run the setup utilityと出ます（一度なってからずっと）Ｆ１キーを押すと一応起動するのですが３０分ぐらい動きがすごく遅いです。
これってウイルスにやられてるのでしょうか？アップデートしたノートンでなんどもスキャンしましたが同じです。
もしくはメモリ不足？
それとも故障？
すいませんがどなたか教えてください。
お願い致します。
Windows Vista Businessを買えばXPにダウングレードができるPCがありますが、普通にWindows Vista HomeをとXPのProを買ってもWindows Vista HomeにXP Proをインストールできますか？
また、外付けHDにOSをインストールできるソフトウエアがヨドバシにあったのですが、その場合VistaとXPを交互にインストール可能ですか？
XPをインストールした場合、デメリットはありますか？
