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

[µo°Ý] ½Ð±Ð¦p¦ó¥Îvba¦Û°Ê¿ï¨úÅã¥Ü·Q¬Ýªº¤å¥ó

[µo°Ý] ½Ð±Ð¦p¦ó¥Îvba¦Û°Ê¿ï¨úÅã¥Ü·Q¬Ýªº¤å¥ó

¦b®à­±¶}¤F¦h­Ó.xls¤å¥ó¡A½Ð±Ð¦p¦ó¥Îvba¦Û°ÊÅã¥Ü·Q¬Ýªº¤å¥ó¡AÁÂÁÂ!
test1.rar (10.18 KB)

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-12-20 08:27 ½s¿è

¦^´_ 1# donod


¸Ì­±ªÅ¥Õ¤@¤ù..
¨S»¡©ú­n¥Î­þºØ¤è¦¡¦Û°Ê¿ï¨ú
¿ï¨ú¤èªk?   listbox(ªí³æ¦¡) ÁÙ¬O combobox(¤U©Ô¦¡) ?
Åã¥Ü¤èªk?  ¶}±ÒÀÉ®×Åã¥Ü? ©ÎªÌ¬O label ¹ïÀ³Åã¥Ü?

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-20 09:59 ½s¿è

¦^´_ 1# donod
FileDialog ÄÝ©Ê ¶Ç¦^ FileDialog ª«¥ó¡A¦¹ª«¥ó¥NªíÀÉ®×¹ï¸Ü¤è¶ôªº°õ¦æ­ÓÅé¡C
expression.FileDialog (fileDialogType)
expression            ¥²¿ï¡C¸Ó¹Bºâ¦¡·|¶Ç¦^ [®M¥Î©ó] ²M³æ¤¤ªº¨ä¤¤¤@­Óª«¥ó¡C
fileDialogType     ¥²¿ïªº MsoFileDialogType¡CÀÉ®×¹ï¸Ü¤è¶ôªºÃþ«¬¡C
MsoFileDialogType ¥i¥H¬O³o¨Ç MsoFileDialogType ±`¼Æ¤§¤@¡C
msoFileDialogFilePicker        ¤¹³\¨Ï¥ÎªÌ¿ï¨úÀɮסC
msoFileDialogFolderPicker  ¤¹³\¨Ï¥ÎªÌ¿ï¨ú¸ê®Æ§¨¡C
msoFileDialogOpen               ¤¹³\¨Ï¥ÎªÌ¶}±ÒÀɮסC
msoFileDialogSaveAs            ¤¹³\¨Ï¥ÎªÌÀx¦sÀɮסC
  1. Sub Ex()
  2.     With Application.FileDialog(msoFileDialogFilePicker)
  3.         .InitialFileName = "d:\*.xls"   '§ï¦¨§A®à­±ªº¸ô®|
  4.         If .Show = True Then Workbooks.Open .SelectedItems(1)
  5.         '.SelectedItems(1) ©Ò¿ï¾ÜªºÀÉ®×
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_  donod


¸Ì­±ªÅ¥Õ¤@¤ù..
¨S»¡©ú­n¥Î­þºØ¤è¦¡¦Û°Ê¿ï¨ú
¿ï¨ú¤èªk?   listbox(ªí³æ¦¡) ÁÙ¬O combo ...
mark15jill µoªí©ó 2012-12-20 08:26



    ¤U¦¸·|»¡²M·¡¡AÁÂÁ¤j¤j´£¿ô!

TOP

¦^´_  donod
FileDialog ÄÝ©Ê ¶Ç¦^ FileDialog ª«¥ó¡A¦¹ª«¥ó¥NªíÀÉ®×¹ï¸Ü¤è¶ôªº°õ¦æ­ÓÅé¡C
expression.F ...
GBKEE µoªí©ó 2012-12-20 09:58



    ÁÂÁª©¤j!¥¿¬O³o¼Ë¡C

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD