GBKEE

¦^´_ 1# acdx
·Q­n±NTextBox1, TextBox2, TextBox3, TextBox4, TextBox5ÂনtxtÀɦs(Save)¦b¬Y­Ó¸ô®|¤U : -> TextBox¤º®e¬OtxtÀɪº¦WºÙ???
«ö¤USave®É¥i¿ï¾ÜÀx¦s¸ô®|                        :->Åã¥Ü¤@­Óµøµ¡,TextBox¤º®e???
¦A±N¬Y­Ó¸ô®|¤UªºtxtÀɤ¤ªº¼Æ­ÈŪ¶i(Load)TextBox1, TextBox2, TextBox3, TextBox4, TextBox5 : -> TextBox¤º®e¬OtxtÀɤ¤ªº¼Æ­È???
«öLoad®É¥i¿ï¾Ü¤£¦P¸ô®|¤UªºtxtÀÉ                 :->Åã¥Ü¤@­Óµøµ¡,TextBox¤º®e???
¸Ó¦p¦ó¼g©O?                                                  :->¬Ýªº¤@ÀYÃú¤ô,½Ð¦A²M·¡¨Ç

GBKEE

¦^´_ 3# acdx
¦p¦óSAVEÁÙ¬O¬Ý¤£À´.

1. Option Explicit
   
2. Private Sub CommandButton2_Click()
   
3.     Dim txtFile As Variant, i As Integer
   
4.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Load", , True)
   
5.     '°Ñ¼Æ True :¬° True «h¤¹³\¿ï©w¦h­ÓÀɮצWºÙ¡A¦pªG¬° False «h¥u¤¹³\¿ï©w³æ­ÓÀɮצWºÙ¡C¹w³]­È¬° False¡C
   
6.     'txtFile ¨S¿ï¾Ü:«¬ºA= Boolean(«DTrue §Y False),¿ï¾Ü:«¬ºA= Variant(),¤U­­ªº¯Á¤Þ­È±q1¶}©lªº°}¦C,
   
7.     '*******************************************************************************
   
8.     Debug.Print TypeName(txtFile)  '«ü¥O:À˵ø->§Y®É¹Bºâµøµ¡ ¥i¨£  Debug.Print ªº¦r¦ê
   
9.     '*******************************************************************************
   
10.     If TypeName(txtFile) = "Boolean" Then
    
11.         MsgBox "No file was selected."
    
12.     Else
    
13.         For i = 1 To 5
    
14.             With Controls("textbox" & i)
    
15.                 .Text = ""
    
16.                 If i <= UBound(txtFile) Then .Text = txtFile(i)
    
17.             End With
    
18.         Next
    
19.     End If
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# acdx
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub CommandButton1_Click()  'Save
   
3.     Dim txtFile As Variant, i As Integer, fs As Object
   
4.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Save", , False)
   
5.     If TypeName(txtFile) = "Boolean" Then
   
6.         MsgBox "No file was selected."
   
7.     Else
   
8.         Set fs = CreateObject("Scripting.FileSystemObject")
   
9.         Set fs = fs.OpenTextFile(txtFile, 2, 0)
   
10.         ' °Ñ¼Æ : 2
    
11.         ' 1 ¶}±Ò¤@­Ó°ßŪÀɮסAµLªk¹ï¦¹Àɮ׶i¦æ¼g¤J¡C
    
12.         ' 2 ¶}±Ò¤@­Ó¥Î©ó¼g¤JªºÀɮסC¦pªG©M¦¹ÀɮצP¦WªºÀɮפw¦s¦b¡A«hÂл\¥H«e¤º®e¡C
    
13.         ' 8 ¶}±Ò¤@­ÓÀɮרüg¿é¥X¦ÜÀɮתº§À³¡¡C
    
14.         For i = 1 To 5
    
15.             fs.WriteLine Controls("TEXTBOX" & i)
    
16.         Next
    
17.         fs.Close
    
18.     End If
    
19. End Sub
    
20. Private Sub CommandButton2_Click() 'LOAD
    
21.     Dim txtFile As Variant, i As Integer, fs As Object
    
22.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Load", , False)
    
23.     If TypeName(txtFile) = "Boolean" Then
    
24.         MsgBox "No file was selected."
    
25.     Else
    
26.         Set fs = CreateObject("Scripting.FileSystemObject")
    
27.         Set fs = fs.OpenTextFile(txtFile, 1, 0)
    
28.         For i = 1 To 5
    
29.             Controls("TEXTBOX" & i) = fs.READLine
    
30.         Next
    
31.         fs.Close
    
32.     End If
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# acdx

1. Option Explicit
   
2. Private Sub CommandButton1_Click()  'Save
   
3.     Dim i As Integer, fs As Object
   
4.     With Application.FileDialog(msoFileDialogSaveAs)
   
5.         .Title = "Save"
   
6.         .FilterIndex = 6    '2003 ¤å¥óÀɪº¿ï¶µ
   
7.         If .Show = -1 Then
   
8.             Set fs = CreateObject("Scripting.FileSystemObject")
   
9.             Set fs = fs.CreateTextFile(.SelectedItems(1), True)
   
10.             ' °Ñ¼Æ : True
    
11.             'ªí¥Ü¤@­Ó¤w¦s¦bÀɮ׬O§_¥i³QÂл\¡C¦pªG¥i³QÂл\¨ä­È¬° True¡A¨ä¬° False ®ÉµLªkÂл\¡C¦pªG¥¦³Q¬Ù²¤¡A«h¤w¦s¦bÀÉ®×µLªkÂл\¡C
    
12.             For i = 1 To 5
    
13.                 fs.WriteLine Controls("TEXTBOX" & i)
    
14.             Next
    
15.             fs.Close
    
16.         Else
    
17.             MsgBox "No file was selected."
    
18.         End If
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# acdx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .AllowMultiSelect = True
   
6.         'AllowMultiSelect ÄÝ©Ê ½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©wTrue ¦pªG¤¹³\¨Ï¥ÎªÌ±qÀÉ®×¹ï¸Ü¤è¶ô¿ï¨ú¦h­ÓÀɮסCŪ/¼g Boolean¡C
   
7.    
   
8.         'FileDialog µøµ¡¦³¿ï¾ÜÀÉ®× .Show = True
   
9.         'True       True ÃöÁä¦rªº­Èµ¥©ó -1¡C
   
10.         'False      False ÃöÁä¦rªº­Èµ¥©ó 0¡C
    
11.         If .Show = True Then   
    
12.         'If .Show <> 0 Then           '±ø¥ó¤@¼Ë
    
13.         'If .Show Then                   '±ø¥ó¤@¼Ë
    
14.         'If .Show = -1 Then            '±ø¥ó¤@¼Ë
    
15.             For i = 1 To .SelectedItems.Count   '¹ï¸Ü¤è¶ô¿ï¨ú¦h­ÓÀɮתº­Ó¼Æ
    
16.                 MsgBox .SelectedItems(i)
    
17.         
    
18.             Next
    
19.         Else
    
20.             MsgBox "No file was selected."
    
21.         End If
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

¤¤i©Ò¥Nªíªº¬OtxtÀɤ¤²Ä´X¦æ¶Ü? ¬OControls("TEXTBOX" & i)

fs.WriteLine   "¦r¦ê"  ->  ¾ã¦æ¼g¤JÀÉ®×

1. '¤]¥i¥H¦p¦¹§ï
   
2. For i = 3 To 7
   
3.      fs.WriteLine Controls("TEXTBOX" & i)
   
4. Next

½Æ»s¥N½X