Jak tworzyć foldery z arkusza kalkulacyjnego excel

Arkusze kalkulacyjne excel mogą pomóc w zautomatyzowaniu zadania tworzenia wielu folderów. Jednym ze sposobów generowania folderów jest utworzenie skryptu wykorzystującego zakresy danych i polecenie wsadowe "md." Inną metodą jest użycie makra za pomocą funkcji MkDir, składnika Microsoft Excel VBA. Zapewnia to elastyczność i jest mniej czasochłonne. Aby te techniki działały, w arkuszu kalkulacyjnym należy umieszczać tylko poprawne nazwy folderów. Nazwy folderów nie powinny zawierać cudzysłowów ani żadnego ze znaków "/", "/", ":", "*", "?", "<", ">" i "|."

• Arkusze kalkulacyjne Excel mogą pomóc zautomatyzować zadanie tworzenia wielu folderów.
  
• Jednym ze sposobów generowania folderów jest utworzenie skryptu wykorzystującego zakresy danych i polecenie wsadowe "md."

Układaj nazwy folderów w pojedynczej kolumnie. Kliknij nagłówek kolumny i wpisz "FOLDERNAMES" w polu nazwy obok paska formuły.

Dodaj pustą kolumnę na lewo od kolumny "FOLDERNAMES", klikając prawym przyciskiem myszy nagłówek kolumny i wybierając polecenie "Wstaw."

• Dodaj pustą kolumnę na lewo od kolumny "FOLDERNAMES", klikając prawym przyciskiem myszy nagłówek kolumny i wybierając polecenie "Wstaw."

Podświetl pierwszą komórkę w pustej kolumnie. Wpisz następujący tekst do paska formuły i skopiuj go do pozostałych pustych komórek.

Otwórz edytor tekstu i utwórz pusty dokument. Skopiuj i wklej poniższy kod na początku pliku. Zamień "C:\Temp" na pełną ścieżkę do katalogu, w którym chcesz dodać foldery. Na przykład, aby dodać foldery do katalogu "Songs" na dysku "D", użyj ścieżki "D:\Songs."

@echo off

cd "C:\Temp"

Powróć do swojego skoroszytu programu Excel. Kliknij prawym przyciskiem myszy nagłówek kolumny zawierającej formuły "md" i wybierz opcję "Kopiuj". Go back to your text editor, and paste the values at the end of the file. Your file should now look something like this:

• @echo off cd "C:\Temp" Return to your Excel workbook.
  
• Go back to your text editor, and paste the values at the end of the file.

• @echo off cd "C:\Temp" Return to your Excel workbook.
  
• Go back to your text editor, and paste the values at the end of the file.

@echo off

cd "c:\Temp"

md foldername1

md foldername2

..

Save the file on your Desktop as "CreateFolders.bat." Go to the Desktop, and run the batch file by double-clicking on its icon. Your folders are now ready for use.

• cd "c:\Temp" md foldername1 md foldername2 .. Save the file on your Desktop as "CreateFolders.bat."
  
• Go to the Desktop, and run the batch file by double-clicking on its icon.

Open the Excel workbook. Hold the "Alt" key down and press "F8" to open the Macros window.

• Hold the "Alt" key down and press "F8" to open the Macros window.

Enter "MakeFolders" under "Macro Name," and click the "Create" button. This opens the VBA editor.

Copy and paste the following macro in the editor:

Sub MakeFolders()

Dim Rng As Range

Dim maxRows, maxCols, r, c As Integer

Set Rng = Selection

maxRows = Rng.Rows.Count

maxCols = Rng.Columns.Count

For c = 1 To maxCols

               r = 1  Do While r <= maxRows      If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then          MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))          On Error Resume Next      End If      r = r + 1  Loop             

Next c

End Sub

Save your file as a macro-enabled workbook by opening the "File" menu and choosing "Save As." Wprowadź preferowaną nazwę pliku i wybierz "Makro-Enabled Workbook Excel" obok "Zapisz jako typ pliku". Kliknij przycisk "Zapisz".

• Zapisz plik jako skoroszyt z obsługą makr, otwierając menu "Plik" i wybierając polecenie "Zapisz jako."
  
• Wprowadź preferowaną nazwę pliku i wybierz "Skoroszyt programu Excel z obsługą makr" obok opcji "Zapisz jako typ pliku."

Podświetl komórki zawierające nazwy folderów. Przytrzymaj klawisz "Alt" i naciśnij "F8", aby otworzyć okno Makra. Kliknij dwukrotnie na "MakeFolders". Foldery są teraz gotowe do użycia.

TIP

Makro tworzy foldery w tym samym katalogu, w którym znajduje się aktywny skoroszyt. Aby utworzyć foldery w katalogu, w którym znajduje się skoroszyt z włączonym makrem, zastąp wszystkie przypadki "ActiveWorkbook" w kodzie przez "ThisWorkbook."

Ostrzeżenie

Jeśli używasz programu Microsoft Excel 2007, możesz nie mieć domyślnie dostępu do okna Makra i karty "Deweloper". Aby to włączyć, kliknij orbitę Microsoft Office i wybierz "Opcje programu Excel". Kliknij "Popularne" w panelu kategorii i wybierz "Pokaż kartę Deweloper na wstążce". Kliknij "OK", aby zapisać zmiany.