MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 19.06.2007, 15:12   #1
ARunow98
MOF User
MOF User
Standard Excel 2007 - XLS2000: FileDialog u. sht.protect

Hi!

Ich habe folgende Probleme: es wurde VBA-Code auf Basis von Excel 2003 entwickelt. Nun wird die Datei aber auch noch von jemandem auf Basis von Excel 2000 verwendet, mit Fehlern für "FileDialog" u. "xxx.protect" (Schutz eines Arbeitsblattes).
Kann mir jemand die Funktionalitäten des 2003er-FileDialogs auf Excel 2000 bereitstellen u. die Atttribute für xxx.protect?
Und kann ich via VBA die Excel-Version beim Start ermitteln? Also Unterscheidung 2000 oder größer?

Danke für Eure Hilfe!!
Alex
ARunow98 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2007, 17:43   #2
jinx
MS-Office-Forum Team MS-Office-Forum Team
Standard

Moin, Alex,

das Einfache zuerst: Application.Version liefert die verwendete Programmversion - 9 für E2K und 11 für 2003.

Ansonsten: zu wenig Info, die zu zu großen Datenmengen führen (Tabulatoren werden leider verschluckt):

Zitat:

Dialogfeldkonstante Argumentliste(n)
xlDialogActivate window_text, pane_num
xlDialogActiveCellFont font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count
xlDialogAddChartAutoformat name_text, desc_text
xlDialogAddinManager operation_num, addinname_text, copy_logical
xlDialogAlignment horiz_align, wrap, vert_align, orientation, add_indent
xlDialogApplyNames name_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last
xlDialogApplyStyle style_text
xlDialogAppMove x_num, y_num
xlDialogAppSize x_num, y_num
xlDialogArrangeAll arrange_num, active_doc, sync_horiz, sync_vert
xlDialogAssignToObject macro_ref
xlDialogAssignToTool bar_id, position, macro_ref
xlDialogAttachText attach_to_num, series_num, point_num
xlDialogAttachToolbars
xlDialogAutoCorrect correct_initial_caps, capitalize_days
xlDialogAxes x_primary, y_primary, x_secondary, y_secondary
xlDialogAxes x_primary, y_primary, z_primary
xlDialogBorder outline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_color
xlDialogCalculation type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values, alt_exp, alt_form
xlDialogCellProtection locked, hidden
xlDialogChangeLink old_text, new_text, type_of_link
xlDialogChartAddData ref, rowcol, titles, categories, replace, series
xlDialogChartLocation
xlDialogChartOptionsDataLabels
xlDialogChartOptionsDataTable
xlDialogChartSourceData
xlDialogChartTrend type, ord_per, forecast, backcast, intercept, equation, r_squared, name
xlDialogChartType
xlDialogChartWizard long, ref, gallery_num, type_num, plot_by, categories, ser_titles, legend, title, x_title, y_title, z_title, number_cats, number_titles
xlDialogCheckboxProperties value, link, accel_text, accel2_text, 3d_shading
xlDialogClear type_num
xlDialogColorPalette file_text
xlDialogColumnWidth width_num, reference, standard, type_num, standard_num
xlDialogCombination type_num
xlDialogConditionalFormatting
xlDialogConsolidate source_refs, function_num, top_row, left_col, create_links
xlDialogCopyChart size_num
xlDialogCopyPicture appearance_num, size_num, type_num
xlDialogCreateNames top, left, bottom, right
xlDialogCreatePublisher file_text, appearance, size, formats
xlDialogCustomizeToolbar category
xlDialogCustomViews
xlDialogDataDelete
xlDialogDataLabel show_option, auto_text, show_key
xlDialogDataSeries rowcol, type_num, date_num, step_value, stop_value, trend
xlDialogDataValidation
xlDialogDefineName name_text, refers_to, macro_type, shortcut_text, hidden, category, local
xlDialogDefineStyle style_text, number, font, alignment, border, pattern, protection
xlDialogDefineStyle style_text, attribute_num, additional_def_args, ...
xlDialogDeleteFormat format_text
xlDialogDeleteName name_text
xlDialogDemote row_col
xlDialogDisplay formulas, gridlines, headings, zeros, color_num, reserved, outline, page_breaks, object_num
xlDialogDisplay cell, formula, value, format, protection, names, precedents, dependents, note
xlDialogEditboxProperties validation_num, multiline_logical, vscroll_logical, password_logical
xlDialogEditColor color_num, red_value, green_value, blue_value
xlDialogEditDelete shift_num
xlDialogEditionOptions edition_type, edition_name, reference, option, appearance, size, formats
xlDialogEditSeries series_num, name_ref, x_ref, y_ref, z_ref, plot_order
xlDialogErrorbarX include, type, amount, minus
xlDialogErrorbarY include, type, amount, minus
xlDialogExternalDataProperties
xlDialogExtract unique
xlDialogFileDelete file_text
xlDialogFileSharing
xlDialogFillGroup type_num
xlDialogFillWorkgroup type_num
xlDialogFilter
xlDialogFilterAdvanced operation, list_ref, criteria_ref, copy_ref, unique
xlDialogFindFile
xlDialogFont name_text, size_num
xlDialogFontProperties font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count
xlDialogFormatAuto format_num, number, font, alignment, border, pattern, width
xlDialogFormatChart layer_num, view, overlap, angle, gap_width, gap_depth, chart_depth, doughnut_size, axis_num, drop, hilo, up_down, series_line, labels, vary
xlDialogFormatCharttype apply_to, group_num, dimension, type_num
xlDialogFormatFont color, backgd, apply, name_text, size_num, bold, italic, underline, strike, outline, shadow, object_id, start_num, char_num
xlDialogFormatFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogFormatFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow, object_id_text, start_num, char_num
xlDialogFormatLegend position_num
xlDialogFormatMain type_num, view, overlap, gap_width, vary, drop, hilo, angle, gap_depth, chart_depth, up_down, series_line, labels, doughnut_size
xlDialogFormatMove x_offset, y_offset, reference
xlDialogFormatMove x_pos, y_pos
xlDialogFormatMove explosion_num
xlDialogFormatNumber format_text
xlDialogFormatOverlay type_num, view, overlap, gap_width, vary, drop, hilo, angle, series_dist, series_num, up_down, series_line, labels, doughnut_size
xlDialogFormatSize width, height
xlDialogFormatSize x_off, y_off, reference
xlDialogFormatText x_align, y_align, orient_num, auto_text, auto_size, show_key, show_value, add_indent
xlDialogFormulaFind text, in_num, at_num, by_num, dir_num, match_case, match_byte
xlDialogFormulaGoto reference, corner
xlDialogFormulaReplace find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte
xlDialogFunctionWizard
xlDialogGallery3dArea type_num
xlDialogGallery3dBar type_num
xlDialogGallery3dColumn type_num
xlDialogGallery3dLine type_num
xlDialogGallery3dPie type_num
xlDialogGallery3dSurface type_num
xlDialogGalleryArea type_num, delete_overlay
xlDialogGalleryBar type_num, delete_overlay
xlDialogGalleryColumn type_num, delete_overlay
xlDialogGalleryCustom name_text
xlDialogGalleryDoughnut type_num, delete_overlay
xlDialogGalleryLine type_num, delete_overlay
xlDialogGalleryPie type_num, delete_overlay
xlDialogGalleryRadar type_num, delete_overlay
xlDialogGalleryScatter type_num, delete_overlay
xlDialogGoalSeek target_cell, target_value, variable_cell
xlDialogGridlines x_major, x_minor, y_major, y_minor, z_major, z_minor, 2D_effect
xlDialogImportTextFile
xlDialogInsert shift_num
xlDialogInsertHyperlink
xlDialogInsertNameLabel
xlDialogInsertObject object_class, file_name, link_logical, display_icon_logical, icon_file, icon_number, icon_label
xlDialogInsertPicture file_name, filter_number
xlDialogInsertTitle chart, y_primary, x_primary, y_secondary, x_secondary
xlDialogLabelProperties accel_text, accel2_text, 3d_shading
xlDialogListboxProperties range, link, drop_size, multi_select, 3d_shading
xlDialogMacroOptions macro_name, description, menu_on, menu_text, shortcut_on, shortcut_key, function_category, status_bar_text, help_id, help_file
xlDialogMailEditMailer to_recipients, cc_recipients, bcc_recipients, subject, enclosures, which_address
xlDialogMailLogon name_text, password_text, download_logical
xlDialogMailNextLetter
xlDialogMainChart type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle
xlDialogMainChartType type_num
xlDialogMenuEditor
xlDialogMove x_pos, y_pos, window_text
xlDialogNew type_num, xy_series, add_logical
xlDialogNewWebQuery
xlDialogNote add_text, cell_ref, start_char, num_chars
xlDialogObjectProperties placement_type, print_object
xlDialogObjectProtection locked, lock_text
xlDialogOpen file_text, update_links, read_only, format, prot_pwd, write_res_pwd, ignore_rorec, file_origin, custom_delimit, add_logical, editable, file_access, notify_logical, converter
xlDialogOpenLinks document_text1, document_text2, ..., read_only, type_of_link
xlDialogOpenMail subject, comments
xlDialogOpenText file_name, file_origin, start_row, file_type, text_qualifier, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info
xlDialogOptionsCalculation type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values
xlDialogOptionsChart display_blanks, plot_visible, size_with_window
xlDialogOptionsEdit incell_edit, drag_drop, alert, entermove, fixed, decimals, copy_objects, update_links, move_direction, autocomplete, animations
xlDialogOptionsGeneral R1C1_mode, dde_on, sum_info, tips, recent_files, old_menus, user_info, font_name, font_size, default_location, alternate_location, sheet_num, enable_under
xlDialogOptionsListsAdd string_array
xlDialogOptionsListsAdd import_ref, by_row
xlDialogOptionsME def_rtl_sheet, crsr_mvmt, show_ctrl_char, gui_lang
xlDialogOptionsTransition menu_key, menu_key_action, nav_keys, trans_eval, trans_entry
xlDialogOptionsView formula, status, notes, show_info, object_num, page_breaks, formulas, gridlines, color_num, headers, outline, zeros, hor_scroll, vert_scroll, sheet_tabs
xlDialogOutline auto_styles, row_dir, col_dir, create_apply
xlDialogOverlay type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle, series_num, auto
xlDialogOverlayChartType type_num
xlDialogPageSetup head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft
xlDialogPageSetup head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft
xlDialogPageSetup head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num
xlDialogParse parse_text, destination_ref
xlDialogPasteNames
xlDialogPasteSpecial paste_num, operation_num, skip_blanks, transpose
xlDialogPasteSpecial rowcol, titles, categories, replace, series
xlDialogPasteSpecial paste_num
xlDialogPasteSpecial format_text, pastelink_logical, display_icon_logical, icon_file, icon_number, icon_label
xlDialogPatterns apattern, afore, aback, newui
xlDialogPatterns lauto, lstyle, lcolor, lwt, hwidth, hlength, htype
xlDialogPatterns bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, rounded, newui
xlDialogPatterns bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, invert, apply, newfill
xlDialogPatterns lauto, lstyle, lcolor, lwt, tmajor, tminor, tlabel
xlDialogPatterns lauto, lstyle, lcolor, lwt, apply, smooth
xlDialogPatterns lauto, lstyle, lcolor, lwt, mauto, mstyle, mfore, mback, apply, smooth
xlDialogPatterns type, picture_units, apply
xlDialogPhonetic
xlDialogPivotCalculatedField

xlDialogPivotCalculatedItem
xlDialogPivotClientServerSet
xlDialogPivotFieldGroup start, end, by, periods
xlDialogPivotFieldProperties name, pivot_field_name, new_name, orientation, function, formats
xlDialogPivotFieldUngroup
xlDialogPivotShowPages name, page_field
xlDialogPivotSolveOrder
xlDialogPivotTableOptions
xlDialogPivotTableWizard type, source, destination, name, row_grand, col_grand, save_data, apply_auto_format, auto_page, reserved
xlDialogPlacement placement_type
xlDialogPrint range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate
xlDialogPrinterSetup printer_text
xlDialogPrintPreview
xlDialogPromote rowcol
xlDialogProperties title, subject, author, keywords, comments
xlDialogProtectDocument contents, windows, password, objects, scenarios
xlDialogProtectSharing
xlDialogPublishAsWebPage
xlDialogPushbuttonProperties default_logical, cancel_logical, dismiss_logical, help_logical, accel_text, accel_text2
xlDialogReplaceFont font_num, name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogRoutingSlip recipients, subject, message, route_num, return_logical, status_logical
xlDialogRowHeight height_num, reference, standard_height, type_num
xlDialogRun reference, step
xlDialogSaveAs document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec
xlDialogSaveCopyAs document_text
xlDialogSaveNewObject
xlDialogSaveWorkbook document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec
xlDialogSaveWorkspace name_text
xlDialogScale cross, cat_labels, cat_marks, between, max, reverse
xlDialogScale min_num, max_num, major, minor, cross, logarithmic, reverse, max
xlDialogScale cat_labels, cat_marks, reverse, between
xlDialogScale series_labels, series_marks, reverse
xlDialogScale min_num, max_num, major, minor, cross, logarithmic, reverse, min
xlDialogScenarioAdd scen_name, value_array, changing_ref, scen_comment, locked, hidden
xlDialogScenarioCells changing_ref
xlDialogScenarioEdit scen_name, new_scenname, value_array, changing_ref, scen_comment, locked, hidden
xlDialogScenarioMerge source_file
xlDialogScenarioSummary result_ref, report_type
xlDialogScrollbarProperties value, min, max, inc, page, link, 3d_shading
xlDialogSelectSpecial type_num, value_type, levels
xlDialogSendMail recipients, subject, return_receipt
xlDialogSeriesAxes axis_num
xlDialogSeriesOptions
xlDialogSeriesOrder chart_num, old_series_num, new_series_num
xlDialogSeriesShape
xlDialogSeriesX x_ref
xlDialogSeriesY name_ref, y_ref
xlDialogSetBackgroundPicture
xlDialogSetPrintTitles titles_for_cols_ref, titles_for_rows_ref
xlDialogSetUpdateStatus link_text, status, type_of_link
xlDialogShowDetail rowcol, rowcol_num, expand, show_field
xlDialogShowToolbar bar_id, visible, dock, x_pos, y_pos, width, protect, tool_tips, large_buttons, color_buttons
xlDialogSize width, height, window_text
xlDialogSort orientation, key1, order1, key2, order2, key3, order3, header, custom, case
xlDialogSort orientation, key1, order1, type, custom
xlDialogSortSpecial sort_by, method, key1, order1, key2, order2, key3, order3, header, order, case
xlDialogSplit col_split, row_split
xlDialogStandardFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogStandardWidth standard_num
xlDialogStyle bold, italic
xlDialogSubscribeTo file_text, format_num
xlDialogSubtotalCreate at_change_in, function_num, total, replace, pagebreaks, summary_below
xlDialogSummaryInfo title, subject, author, keywords, comments
xlDialogTable row_ref, column_ref
xlDialogTabOrder
xlDialogTextToColumns destination_ref, data_type, text_delim, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info
xlDialogUnhide window_text
xlDialogUpdateLink link_text, type_of_link
xlDialogVbaInsertFile filename_text
xlDialogVbaMakeAddIn
xlDialogVbaProcedureDefinition
xlDialogView3d elevation, perspective, rotation, axes, height%, autoscale
xlDialogWebOptionsEncoding
xlDialogWebOptionsFiles
xlDialogWebOptionsFonts
xlDialogWebOptionsGeneral
xlDialogWebOptionsPictures
xlDialogWindowMove x_pos, y_pos, window_text
xlDialogWindowSize width, height, window_text
xlDialogWorkbookAdd name_array, dest_book, position_num
xlDialogWorkbookCopy name_array, dest_book, position_num
xlDialogWorkbookInsert type_num
xlDialogWorkbookMove name_array, dest_book, position_num
xlDialogWorkbookName oldname_text, newname_text
xlDialogWorkbookNew
xlDialogWorkbookOptions sheet_name, bound_logical, new_name
xlDialogWorkbookProtect structure, windows, password
xlDialogWorkbookTabSplit ratio_num
xlDialogWorkbookUnhide sheet_text
xlDialogWorkgroup name_array
xlDialogWorkspace fixed, decimals, r1c1, scroll, status, formula, menu_key, remote, entermove, underlines, tools, notes, nav_keys, menu_key_action, drag_drop, show_info
xlDialogZoom magnification

Zitat:

Protect-Methode


Schützt ein Diagramm oder Tabellenblatt (Syntax 1) bzw. eine Arbeitsmappe (Syntax 2), so dass es bzw. sie nicht geändert werden kann.

Syntax 1

Ausdruck.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly)

Syntax 2

Ausdruck.Protect(Password, Structure, Windows)

Ausdruck Erforderlich. Ein Ausdruck, der ein Chart- oder Worksheet-Objekt (Syntax 1) bzw. ein Workbook-Objekt (Syntax 2) zurückgibt.

Password Variant optional. Eine Zeichenfolge, die ein von Groß-/Kleinschreibung abhängiges Kennwort für das Blatt oder die Arbeitsmappe festlegt. Wenn Sie dieses Argument weglassen, kann der Schutz des Blattes oder der Arbeitsmappe ohne Angabe eines Kennworts aufgehoben werden. Weisen Sie dagegen ein Kennwort zu, muss das Kennwort angegeben werden, um den Schutz des Blattes oder der Arbeitsmappe aufzuheben. Falls Sie das Kennwort vergessen, können Sie den Schutz des Blattes oder der Arbeitsmappe nicht wieder aufheben. Sie sollten daher eine Liste Ihrer Kennwörter und der zugehörigen Dateinamen an einem sicheren Ort aufbewahren.

DrawingObjects Variant optional. Wenn True, werden Formen geschützt. Die Voreinstellung ist False.

Contents Variant optional. Wenn True, wird der Inhalt geschützt. Bei einem Diagramm wird das gesamte Diagramm geschützt. Bei einem Tabellenblatt werden die einzelnen Zellen geschützt. Die Voreinstellung ist True.

Scenarios Variant optional. Wenn True, werden Szenarios geschützt. Das Argument gilt nur für Arbeitsmappen. Die Voreinstellung ist True.

Structure Variant optional. Wenn True, wird die Struktur der Arbeitsmappe geschützt (die relative Position der Blätter). Die Voreinstellung ist False.

UserInterfaceOnly Variant optional. Wenn True, wird die Benutzeroberfläche, jedoch keine Makros geschützt. Ohne Angabe dieses Arguments gilt der Schutz für Makros und die Benutzeroberfläche.

Windows Variant optional. Wenn True, werden die Fenster der Arbeitsmappe geschützt. Ohne Angabe dieses Arguments werden die Fenster nicht geschützt.

Anmerkungen

Wenn Sie die Protect-Methode mit dem auf True gesetzten UserInterfaceOnly-Argument bei einem Tabellenblatt anwenden und dann die Arbeitsmappe speichern, ist bei erneutem Öffnen der Arbeitsmappe das gesamte Tabellenblatt (und nicht nur die Oberfläche) geschützt. Um den Schutz des Tabellenblatts aufzuheben, die Benutzeroberfläche aber nach Öffnen der Arbeitsmappe weiter zu schützen, müssen Sie wieder die Protect -Methode mit dem auf True gesetzten UserInterfaceOnly anwenden.

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: Code Converter; Excel Jeanie Html
Für die allgemeinen Hinweise: Netiquette; Fragen und Antworten in Foren

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2007, 09:19   #3
ARunow98
Threadstarter Threadstarter
MOF User
MOF User
Standard 66,6% gelöst :-)

Hallo, jinx,

danke für Deine Antwort, 2 meiner 3 Fragen haben sich damit geklärt, denke ich, was ich bzgl. "FileDialog" meinte, war folgendes:
Ich suche den VBA-Code für das Auswählen eines Ordners via dem bekannten Dateifenster aus Exc2003, ist so etwas auch via VBA in Exc2000 möglich? Und wenn ja, wie lautet dann der entsprechende Code dafür?

Vielen Dank schon mal vorab,
Alex
ARunow98 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2007, 09:34   #4
Sebastian Schulz
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Alex,

schau mal ob du mit folgendem Code was anfangen kannst

Code:

Dim sFile As String
   

    sFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    msgbox(sFile)
Dieser Code geht dabei auf Datei-Ebene. (Also Auswahl einer Datei)

Wenn du jedoch auf Ordner-Ebene operrieren möchtest kannst du mit folgendem Code arbeiten
Code:

Option Explicit
Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
   Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
   ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
   Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Code:

Function GetDirectory(Msg) As String
    Dim bInfo As BROWSEINFO
    Dim path As String
    Dim r As Long, x As Long, pos As Integer
    With bInfo
        .pidlRoot = 0&
        .lpszTitle = Msg
        .ulFlags = &H1
    End With
    x = SHBrowseForFolder(bInfo)
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        GetDirectory = Left(path, pos - 1)
    Else
        GetDirectory = ""
    End If
End Function
Code:

Sub Aufruf()
Dim s As String
    s = GetDirectory("Bitte wählen Sie das Verzeichnis aus, in dem die Dateien gespeichert sind")
    If s = "" Then Exit Sub
    MsgBox s
    
End Sub

__________________

Grüße Sebastian
________________________________________________________________________________ ______

Das Unsympathische an den Computern ist, daß sie nur JA oder NEIN sagen können, aber nicht vielleicht.

Brigitte Bardot (*1934), frz. Filmschauspielerin
________________________________________________________________________________ ______

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.

Geändert von Sebastian Schulz (20.06.2007 um 09:38 Uhr).
Sebastian Schulz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2007, 09:42   #5
ARunow98
Threadstarter Threadstarter
MOF User
MOF User
Standard

...der Code bezieht sich doch auf das Auswählen einer konkreten Datei, oder? Ich brauche den Code für das Auswählen eines Ordners.

Danke!
ARunow98 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2007, 09:43   #6
Sebastian Schulz
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Alex,

schau oben mal nach. Habe ich kurze Zeit später noch ergänzt. Hab dir beide Varianten gegeben, da du im Titel "FileDialog" geschrieben hast. Das impliziert jedoch, dass du auf Dateiebene arbeiten möchtest ;-)

Grüße

__________________

Grüße Sebastian
________________________________________________________________________________ ______

Das Unsympathische an den Computern ist, daß sie nur JA oder NEIN sagen können, aber nicht vielleicht.

Brigitte Bardot (*1934), frz. Filmschauspielerin
________________________________________________________________________________ ______

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.

Geändert von Sebastian Schulz (20.06.2007 um 09:45 Uhr).
Sebastian Schulz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:18 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.