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

[µo°Ý] F8³v¨B°õ¦æ¥¿±`¡AF5«o¿ù»~

[µo°Ý] F8³v¨B°õ¦æ¥¿±`¡AF5«o¿ù»~

¤p§Ì¦b¶]µ{¦¡ªº®É­Ô

­ì¥»¨S°ÝÃDªº
¤£ª¾³Ìªñ¬°¤°»ò«oµLªk°õ¦æ¤F

¨Ï¥ÎF8³v¨B°õ¦æOK¨S°ÝÃD
¥i¬O¥ÎF5°õ¦æ´N¿ù¤F...

¿ù»~°T®§¥u¬O«Ü¤@¯ëªº"µ{¦¡¤w³Q¤¤Â_"....¨S¦³¤°»ò°Ñ¦Ò¨Ì¾Ú

µ{¦¡½X¦p¤U
  1. Option Explicit

  2. Sub Mapping_Data_Click()

  3. '    On Error GoTo Err
  4.     On Error Resume Next
  5.    
  6.     Dim fn As String
  7.     Dim Show_File As Object
  8.     Dim file_count As Integer
  9.     Dim SF_name As String
  10.     Dim T As Date
  11.    
  12.     T = Time
  13.    
  14.     Application.DisplayAlerts = False
  15.    
  16.     fn = ActiveWorkbook.Name

  17.     Set Show_File = Application.FileDialog(msoFileDialogOpen)
  18.    
  19.     With Show_File
  20.          .InitialFileName = ActiveWorkbook.Path & "\*.xls"  '«ü©w xlsÀÉ
  21.          .AllowMultiSelect = True
  22.          .Show
  23.             If .SelectedItems.Count > 0 Then
  24.             
  25.                 For file_count = 1 To .SelectedItems.Count
  26.                     
  27.                     With Workbooks.Open(.SelectedItems(file_count))
  28.                     
  29.                         Debug.Print "SF(" & file_count & "): " & ActiveWorkbook.Name
  30.                         SF_name = ActiveWorkbook.Name
  31.                         MCD_mapping fn, SF_name
  32.                         .Close 0
  33.                         
  34.                     End With
  35.                     
  36.                 Next
  37.                
  38.             End If
  39.     End With
  40.       
  41.     Application.DisplayAlerts = True
  42.    
  43.     Debug.Print "¸g¹L®É¶¡: " & DateDiff("n", T, Time) & "¤À"
  44.    
  45. '    Exit Sub
  46. '
  47. 'Err:
  48. '    Debug.Print "¥¼¶}±Ò³øªí"
  49.    
  50. End Sub
½Æ»s¥N½X
¥X¿ùªºÂI¬O³o¦æ
If .SelectedItems.Count > 0 Then

«á¨Óµo²{¥u­n¬O¸ò.SelectedItems¦³Ãöªº¦a¤è³£·|¿ù

GOOGLE¤F¦n¤@°}¤lÁÙ¬OµL¸Ñ

³Ì©_©Çªº¬O¤§«e¥i¥H°õ¦æ¦ý²{¦b«o¬ðµM¤£¦æ.....

¤£ª¾°ÝÃDÂI¬°¦ó?

·Ð½Ð¦U¦ì¤j¤j¨ó§U
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¦^´_ 1# li_hsien
®³±¼On Error Resume Next¦A¶]¤@¦¸
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00

µ²ªGÁÙ¬O¤@¼Ë...

¤§«e¦³¬d¨ìÃþ¦üªºª¬ªp

¥i¯à¬O¨S¦³°Ñ·Ó¨ì§Ú­n°õ¦æªº­¶­±

·N«ä¤j·§¹³¤U­±³o¼Ë
range("A1").copy
worksheets(2).range("A1").paste
(¥i¯à·|µo¥Í¿ù»~)

­×§ï¦p¤U
range("A1").copy
worksheets(2).activate
worksheets(2).range("A1").paste

¤£ª¾¸ò§Ú³o­Óª¬ªp¦³µL¬ÛÃö

·Ð½Ð¤j¤j¨ó§U
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 3# li_hsien
®³±¼«á¥X²{ªº¿ù»~ÁÙ¬Oµ{¦¡¤w³Q¤¤Â_¶Ü?
¦pªG¤£¬O¦A«ö°»¿ù¬Ý¬O­þ¤@¦æ¥X¿ù

©Î¬O§A§âMCD_mapping fn, SF_name µù¸Ñ±¼
¦pªG¤£·|¥X¿ù¡Aªí¥Ü¿ù»~¤£¦b1¼Óªºcode
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 4# stillfish00

³£¤@¼Ë¬O¿ù¦bIf .SelectedItems.Count > 0 Then³o¦æ

§Y¨Ï§Ú§â³o¦æµù¸Ñ±¼ÁÙ¬O·|¿ù¤U¤@¦æ

¿ù»~°T®§¤@¼Ë¬O"µ{¦¡¤w³Q¤¤Â_"

¦Ó¥B§Ú«öÄ~ÄòÁÙ¬O¥i¥H°õ¦æ...

¦ý¬O°õ¦æ§¹¤U¤@¦æ«á¤S·|¦A¥X¿ù...

¦A«öÄ~ÄòÁÙ¬O¥i¥H°õ¦æ

¤@¼Ë¤S¦A¤U¤@¦æ¥X¿ù


¤£ª¾«ç»ò³B²z

½Ð¦U¦ì¨ó§U

ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 5# li_hsien
Office ­«·s¦w¸Ë¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

NO~~~

³Ì¤£·QÅ¥¨ìªºµª®×

ǢǢ

¦]¬°§Ú¬O°½°½¥ÎServer¨Ó¶]µ{¦¡

­«ÄéOffice¥i¯à¦³ÂI§xÃø...

ÁÙ¬O·PÁª©¤j¨ó§U!!!
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD