標題: [發問] 如何取得已經有的FolderBrowserDialog值 [打印本頁]

---

作者: z15935712    時間: 2014-8-21 12:36     標題: 如何取得已經有的FolderBrowserDialog值

本帖最後由 z15935712 於 2014-8-21 12:38 編輯

前言:button1是瀏覽資料夾路徑位置的功能
          button2是開起button1選取好資料夾路徑底下的excel檔
想請問高手們
我Button1已經可以瀏覽資料夾的路徑了，那我button2該如何取得路徑位置然後去開啟底下的excel檔
請高手們指點迷津,感恩

1. Public Class Form1
   
2. 
   
3. 
   
4. 
   
5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
6.         FolderBrowserDialog1.ShowDialog()
   
7.         TextBox1.Text = FolderBrowserDialog1.SelectedPath
   
8.     End Sub
   
9. 
   
10.     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
11. 
    
12.     End Sub
    
13. 
    
14.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
15.       
    
16.     End Sub
    
17. 
    
18.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
19. 
    
20.     End Sub
    
21. End Class

複製代碼

---

作者: stillfish00    時間: 2014-8-22 09:11

回復 1# z15935712
既然你放到TextBox1，何不從TextBox1取

---

作者: z15935712    時間: 2014-8-22 12:13

回復 2# stillfish00

xlBook = xlApp.Workbooks.Open(TextBox1.Text)請問大大是這樣子寫麻,可是沒有反應

---

作者: z15935712    時間: 2014-8-22 12:23

回復 2# stillfish00

xlBook = xlApp.Workbooks.Open(TextBox1.Text & "\" & "AA.xlsx")這樣子就成功了 謝謝大大的指點迷津
但是我想要的是開啟設定好路徑下所有的excel不只一個，請問應該怎麼做
謝謝

---

作者: Hsieh    時間: 2014-8-22 15:30

回復 4# z15935712
用迴圈開啟每個檔案

f = Dir(TextBox1 & "\*xls*")
Do Until f = ""
fs = TextBox1 & "\" & f
xlApp.Workbooks.Open fs
f = Dir
Loop

---

作者: stillfish00    時間: 2014-8-22 15:38

回復 4# z15935712
檔案系統的處理可查詢FileSystemObject找到相關資料
底下方式供參考:

1.   Dim s, oFs, oFile
   
2.   
   
3.   s=TextBox1.Text
   
4.   Set oFs = CreateObject("Scripting.FileSystemObject")
   
5.   If oFs.FolderExists(s) Then
   
6.     For Each oFile In oFs.GetFolder(s).Files  '所有該資料夾下檔案
   
7.       If StrComp(Right(oFile.Path, Len(".xlsx")), ".xlsx") = 0 Then  '如果是.xlsx檔案
   
8.         'msgbox oFile.Path
   
9.       End If
   
10.     Next
    
11.   End If

複製代碼

---

作者: z15935712    時間: 2014-8-25 11:07

回復 6# stillfish00
大大出現下列此問題,試了很多方法但始終無法解決，希望您能幫助...感恩
[attach]19018[/attach]

---

作者: stillfish00    時間: 2014-8-25 16:06

回復 7# z15935712
你這不是VBA吧...
VB.NET ???
沒有Right函式，你自己應該有能力找VB.NET下的字串函式來用

---

作者: z15935712    時間: 2014-8-26 00:53

回復 8# stillfish00
感謝大大提點.懂了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)