現在VBAを使用してファイルの自動選択を行う処理を追加したいと考えています。
ListBox.ListIndexを使用して、ファイル選択をしているのですが
毎日行う作業で、ある決められた命名のフォルダを選択するのに、
毎度、手動で選択しているのが手間です。
ListBox内に存在する複数のファイルのうち、1a+"yyyymmdd"の名前を持つものを全て選択する処理などを作成することは可能でしょうか?
現在のコードは下記の通りです。
VBA
1Private Sub CommandButton1_Click() 2 '未選択の場合は処理終了 3 Dim idxMoveItem As Long 4 idxMoveItem = lstBefore.ListIndex 5 If idxMoveItem < 0 Then Exit Sub 6 '右側の結合用のリストへ追加 7 Dim strSelItem As String 8 strSelItem = Me.lstBefore.Text 9 '重複チェック 10 Dim lstNum As Long 11 For lstNum = 0 To Me.lstConcat.ListCount - 1 12 If Me.lstConcat.List(lstNum) = strSelItem Then 13 Exit Sub 14 End If 15 Next 16 '重複がなければ登録 17 lstConcat.AddItem strSelItem 18End Sub
つくり的にはフォームが合って、
lstBeforeと呼ばれる、指定のフォルダ内の全てのpdfファイルを格納しているlistBoxと、
lstConcatと呼ばれる、lstBeforeから選択した任意のファイルのみを格納するlistBoxがあります。
上記のコードはlstBeforeからListConcatへの移行を行う処理のコードですが、これを一回のボタン押下で、決められた名前のファイルを一括で選択し、listConcatへ移行するように編集したいです。
よろしくお願いします。
回答1件
あなたの回答
tips
プレビュー