0

私の質問を言い換える：

Sub Path()
Dim path As Range
Dim shPivot As Worksheet
Set shPivot = ActiveWorkbook.Sheets("Pivot")
Set path = shPivot.Range("E12").Value
Set wkbFrom = Workbooks.Open("S:\_Supply Chain\Weekly Rpts Supplier and Buyer\" & path & "\SUPPLIER_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls")

パスはセル内の日付です。このセルが変更されると、パスに応じてディレクトリが変更されます。

4

1 に答える 1

3

二つのこと

  1. パスを範囲ではなく文字列として宣言します。
  2. パスで使用する前に、日付の「\」を置き換えます

これはあなたがしようとしていることですか？

Dim path As String
path = shPivot.Range("E12").Value
Set wkbFrom = Workbooks.Open("S:\_Supply Chain\Weekly Rpts Supplier and Buyer\" & _
              format(path,"DD-MM-YYYY") & _
              "\SUPPLIER_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls")

ファローアップ

そんな時はこれを使おう

Dim path As String
path = shPivot.Range("E12").Value
Set wkbFrom = Workbooks.Open("S:\_Supply Chain\Weekly Rpts Supplier and Buyer\" & _
              path & _
              "\SUPPLIER_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls")

不要なスペースがある場合は、使用する必要がありますTRIM

Dim path As String
path = shPivot.Range("E12").Value
Set wkbFrom = Workbooks.Open("S:\_Supply Chain\Weekly Rpts Supplier and Buyer\" & _
              Trim(path) & _
              "\SUPPLIER_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls")
于 2012-10-25T19:59:42.313 に答える