Pytanie : VBA kod przez proces dla Przodować kartoteka.

Jeżeli ty egzamininować mój blok kod mój, ty zauważać I importować spreadsheets imię zaczynać z "widget" od 3 różny przodować kartoteka (Year1.xlsx, Year2.xlsx, Year3.xlsx).  

I am dla więcej wydajny sposób ten kod redundancja the redundancja.  Ty zauważać dla okręt podwodny "ImportSheetsYears1", "ImportSheetsYears2", i "ImportSheetsYears3" który the kod być identyczny oprócz the `xlPath'.  W Ten Sposób I prawdopodobnie potrzebować i poniekąd zapętlać, ale I być pewny dlaczego it.

Also w the pętla, jeżeli the przodować kartoteka istnieć; ono musieć ono i the następny przodować kartoteka.  Jeżeli okręt podwodny the precyzować przodować kartoteka istnieć, msgbox musieć i the okręt podwodny musieć wychodzić.  I zakładać błąd treser być the najlepszy sposób wokoło iść?  

Anyhow, dzięki w postęp dla jakaś możliwe rozwiązanie.   
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

Option Porównywać Baza danych
Opcja Wyraźny

Ciemnawy objXL Przedmiot
Ciemnawy stajenka, xlPath Równie Sznurek, i Integer


Społeczeństwo importExcelSheets ImportExcelSheets ()
Wywoławczy ImportSheetsYears1
Wywoławczy ImportSheetsYears2
Wywoławczy ImportSheetsYears3
Końcówka Okręt podwodny




Intymny Okręt podwodny ImportSheetsYears1 ()

xlPath = "\ \ serverName \ Year1.xlsx"

Ustalony objXL = CreateObject ("Excel.Application")
    objXL.Workbooks.Open xlPath, Prawdziwy
    Z objXL
        Dla i = (1). Worksheets.Count
            Jeżeli InStr (. Worksheets (i). Imię, "widget") Wtedy
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             "tableName", xlPath, Prawdziwy. Worksheets (i). Imię &"! A: M "
            Kończyć Jeżeli
        Następnie
    Końcówka Z
    objXL.Quit
    Ustalony objXL = Nic

Końcówka Okręt podwodny

Intymny Okręt podwodny ImportSheetsYears2 ()

xlPath = "\ \ serverName \ Year2.xlsx"

Ustalony objXL = CreateObject ("Excel.Application")
    objXL.Workbooks.Open xlPath, Prawdziwy
    Z objXL
        Dla i = (1). Worksheets.Count
            Jeżeli InStr (. Worksheets (i). Imię, "widget") Wtedy
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             "tableName", xlPath, Prawdziwy. Worksheets (i). Imię &"! A: M "
            Kończyć Jeżeli
        Następnie
    Końcówka Z
    objXL.Quit
    Ustalony objXL = Nic

Końcówka Okręt podwodny


Intymny Okręt podwodny ImportSheetsYears3 ()

xlPath = "\ \ serverName \ Year3.xlsx"

Ustalony objXL = CreateObject ("Excel.Application")
    objXL.Workbooks.Open xlPath, Prawdziwy
    Z objXL
        Dla i = (1). Worksheets.Count
            Jeżeli InStr (. Worksheets (i). Imię, "widget") Wtedy
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             "tableName", xlPath, Prawdziwy. Worksheets (i). Imię &"! A: M "
            Kończyć Jeżeli
        Następnie
    Końcówka Z
    objXL.Quit
    Ustalony objXL = Nic

Końcówka Okręt podwodny

Odpowiedź : VBA kod przez proces dla Przodować kartoteka.

I być pewny tam  być… ale gdy I twierdzić, ono być rozsądny.  Dlaczego móc ty ono?  Gdy I mówić sposób pytanie jednakowy natura, zatrudniać programista/hacker kto móc jak Windows robić the ulepszenie 32 kawałek, jaki wezwanie ono robić, i jaki i so-forth, i ostatecznie, I być pewny obliczać pewny sposób.  Ono móc koszt 5 lub 6 postać… ale jeżeli you've dostać the pieniądze, postać być niemożliwy.

Po prostu, gdy stawiać stawiać i twierdzić w jednokierunkowy lub i - i I przedstawiać ponownie dla drugi raz w ten komentarz - tam  być ŻADNY ROZSĄDNY sposób -.  To być twój odpowiedź.  Żadny rozsądny technik (gdy I definiować) wydawać jakaś znaczący czas ono więc ono być Mało prawdopodobny ty znajdować WYDAWAĆ, szczególnie, tutaj, kto znajdować sposób ono - rozsądny lub inaczej.  Ekspert-wymieniać być wielki miejsce odpowiedź pytanie i problem który wywierać wpływ biznes lub twój zdolność system.  Gdy ty chcieć chcieć który gdy myśleć być dobry pomysł albo nawet ewentualny, ty prawie pewny znajdować odpowiedź ty satysfakcjonować z nawet gdy the odpowiedź pewny być, brakować dalszy dowód the przeciwieństwo, 100% ścisły.
Inne rozwiązania  
 
programming4us programming4us