Access2000VBAを使用するのが前提です。
「ダイアログを表示してファイルを選択しフォームに表示する」ファンクションがあります。（下記参考モジュール参照ください：excel 9.0 object Libraryを使用してます）
ダイアログを表示した際、指定のフォルダの内容を表示したいのですが、「(1)ChDir」も「(2)SetCurrentDirectory」を使用しても規定フォルダが表示され指定フォルダに移行しません。
何か手段はありますか？ダイアログ自体は問題なく機能してます。
Public Function ふぁいる選択()
Dim myFile As Variant, P
Dim exlDlg As New Excel.Application
P = CurrentProject.Path & "\"
ChDrive "C"
ChDir P '>>>>>>>(1)
Call SetCurrentDirectory(P) '>>>>>>>>(2)
myFile = exlDlg.GetOpenFilename("CSVファイル(*.csv),*契約*.csv")
If (VarType(myFile) = vbBoolean) Or (myFile = "False") Then
ふぁいる選択 = ""
Else
ふぁいる選択 = myFile
End If
End Function
Excel2016で入力規則リスト入力のドロップダウンリストを
ユーザーフォームで実現しようとしています。
セル内容を中央に表示[Ａ]して選択[Ｂ]される様にＶＢＡを作りました。
時々１～５行上下して選択[Ｂ]されてしまうことがあります。
セル内容は中央に表示されているため[Ａ]は問題なく機能しています。
デバッグ用にMsgBoxを挿入[Ｃ]すると問題なく選択されます。
何が原因なのかが分かりません、どうかご指導ください。
なお、ActiveCell.Value は必ず Sheet2!A2:A1222 内に存在します。
Private Sub UserForm_Activate()
Dim n As Integer
n = Range("Sheet2!A2:A1222").Find(what:=ActiveCell.Value, Lookat:=xlWhole).Row - 2
ListBox1.TopIndex = n - IIf(n >= 5, 5, 0) <----[Ａ]
ListBox1.ListIndex = n <----[Ｂ]
'MsgBox n <----[Ｃ]
End Sub
Private Sub ListBox1_DblClick(ByVal 中止 As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub
Excel2010 です。ピポッドテーブルフィルターを解除するVBAですが、フィルターモードになっていない時にエラーが出てしまいます。また、PivotFields("○○○")が複数あるのですが、それぞれフィールド名を記述するのではなく、
一括で処理出来れば助かります。
ご教示のほど、よろしくお願い致します。
Sub ピポッドテーブルフィルター解除テスト()
Dim pf As PivotField
Dim p As PivotItem
Set pf = ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("店舗名")
pf.Orientation = xlPageField
pf.ClearAllFilters
For Each p In pf.PivotItems
Select Case p.Value
End Select
Next
End Sub
マクロでCSVファイルを開き加工を行った後、名前を付けて保存しようとしていますが（.xls）
では保存できるのですが、（.xlsx）ではエラー1004が出て保存できません。内容としては「この拡張子は、選択したファイル形式には使用できません。[ファイル名]ボックスでファイル拡張子を変更するか、[ファイルの種類]ボックスで別のファイル形式を選択してください」と記述されています。
ご助言の程、宜しくお願い致します。
Dim initPath As String
Dim saveFilePath As Variant
initPath = "\\fileserver\ANT\IT\91_Users\700_SUBJECT\その他業務\Excel\"
'saveFilePath = Application.GetSaveAsFilename(initPath, "Excel File (*.xlsx),*.xlsx")
MsgBox saveFilePath
If Not (saveFilePath = "False") Then
ThisWorkbook.SaveAs saveFilePath '←ここでエラーが発生しています。
Else
MsgBox "キャンセルされました。"
Exit Sub
End If
