ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¨ú±o¤w¸g¦³ªºFolderBrowserDialog­È

[µo°Ý] ¦p¦ó¨ú±o¤w¸g¦³ªºFolderBrowserDialog­È

¥»©«³Ì«á¥Ñ z15935712 ©ó 2014-8-21 12:38 ½s¿è

«e¨¥:button1¬OÂsÄý¸ê®Æ§¨¸ô®|¦ì¸mªº¥\¯à
          button2¬O¶}°_button1¿ï¨ú¦n¸ê®Æ§¨¸ô®|©³¤UªºexcelÀÉ
·Q½Ð°Ý°ª¤â­Ì
§ÚButton1¤w¸g¥i¥HÂsÄý¸ê®Æ§¨ªº¸ô®|¤F¡A¨º§Úbutton2¸Ó¦p¦ó¨ú±o¸ô®|¦ì¸mµM«á¥h¶}±Ò©³¤UªºexcelÀÉ
½Ð°ª¤â­Ì«üÂI°g¬z,·P®¦
  1. Public Class Form1



  2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3.         FolderBrowserDialog1.ShowDialog()
  4.         TextBox1.Text = FolderBrowserDialog1.SelectedPath
  5.     End Sub

  6.     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

  7.     End Sub

  8.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  9.       
  10.     End Sub

  11.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  12.     End Sub
  13. End Class
½Æ»s¥N½X

¦^´_ 2# stillfish00

xlBook = xlApp.Workbooks.Open(TextBox1.Text)½Ð°Ý¤j¤j¬O³o¼Ë¤l¼g³Â,¥i¬O¨S¦³¤ÏÀ³

TOP

¦^´_ 2# stillfish00

xlBook = xlApp.Workbooks.Open(TextBox1.Text & "\" & "AA.xlsx")³o¼Ë¤l´N¦¨¥\¤F ÁÂÁ¤j¤jªº«üÂI°g¬z
¦ý¬O§Ú·Q­nªº¬O¶}±Ò³]©w¦n¸ô®|¤U©Ò¦³ªºexcel¤£¥u¤@­Ó¡A½Ð°ÝÀ³¸Ó«ç»ò°µ
ÁÂÁÂ

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/8/25 12:43): ¦³°ÝÃD¤W¶ÇÀÉ®×·|²M·¡¨Ç

¦^´_ 6# stillfish00
¤j¤j¥X²{¤U¦C¦¹°ÝÃD,¸Õ¤F«Ü¦h¤èªk¦ý©l²×µLªk¸Ñ¨M¡A§Æ±æ±z¯àÀ°§U...·P®¦

TOP

¦^´_ 8# stillfish00
·PÁ¤j¤j´£ÂI.À´¤F

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD