Hello Frnds, I'm looking for the solution where <ol start="1"><li></li>File selection could be done from user.[/*]<li></li>Based on the selected file further action could be performed on that particular file.[/*]<li></li>Based on my requirement I have tried writing the code but when the file is opening the macro does not execute there after. Please find below the code.[/*]</ol>Sub FileCreation() Dim FolderPath As String Dim Filename As Variant Dim openbook As Workbook Dim file_name As Variant Dim bFileSaveAs As Boolean Application.ScreenUpdating = False Filename = Application.GetOpenFilename(Title:="Select Configuration Template") If Filename <> False Then Set openbook = Application.Workbooks.Open(Filename) ThisWorkbook.Activate openbook.Worksheets("User Master").Activate If Range("C6") <> "" Then ActiveSheet.Range("B6:T").Copy Workbooks.Add Worksheets("User Master").Add Range("A1").Select ActiveSheet.Paste Else Range("A1:XFD1048576").Select Selection.Copy Workbooks.Add Worksheets("User Master").Add Range("A1").Select ActiveSheet.Paste End If bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical ActiveWorkbook.Close Worksheets("Community").Activate Range("A1:G1").Select Range(Selection, Selection.End(xlDown)).Copy Workbooks.Add ActiveSheet.Paste bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical ActiveWorkbook.Close Worksheets("web installer").Activate Range("A1:ZZ1").Select Range(Selection, Selection.End(xlDown)).Copy Workbooks.Add Worksheets("Invite Users").Add Range("A1").Select ActiveSheet.Paste bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical ActiveWorkbook.Close Else MsgBox "User Cancelled the Operation" End If End Sub

նոր

Ինչպես Peform գործողությունը ցանկացած ֆայլի վրա, առանց այն բացելու, օգտագործելով VBA

Excel

Friday, May 29 2020

1 Գրառումներ

8K այցելություններ

Քվեարկել

արձակել

Բարև ֆրնդներ,
Ես լուծում եմ փնտրում, որտեղ

Sub FileCreation ()
Dim FolderPath-ը որպես տող
Dim Ֆայլի անունը որպես տարբերակ
Մթնեցրեք բաց գիրքը որպես աշխատանքային գրքույկ
Մուգ ֆայլի_անունը որպես տարբերակ
Dim bFileSaveAs որպես բուլյան

Դիմում. ScreenUpdating = Սուտ է
Ֆայլի անուն = Application.GetOpenFilename(Title:="Ընտրել կազմաձևման ձևանմուշ")
Եթե Ֆայլի անունը <> Սխալ է, ապա
Սահմանել openbook = Application.Workbooks.Open (Ֆայլի անուն)
This Workbook.Activate
openbook.Worksheets («Օգտվողի վարպետ»).Ակտիվացնել
If Range ("C6") <> "" Ապա
ActiveSheet.Range("B6:T").Պատճենել
Աշխատանքային տետրեր.Ավելացնել
Աշխատանքային թերթիկներ («Օգտվողի վարպետ»): Ավելացնել
Շրջանակ («A1»): Ընտրեք
ActiveSheet.Paste
Ուրիշ
Շրջանակ ("A1:XFD1048576"): Ընտրեք
Ընտրություն.Պատճեն
Աշխատանքային տետրեր.Ավելացնել
Աշխատանքային թերթիկներ («Օգտվողի վարպետ»): Ավելացնել
Շրջանակ («A1»): Ընտրեք
ActiveSheet.Paste
Վերջ: Եթե
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Ցույց տալ
 Եթե ոչ bFileSaveAs, ապա MsgBox «User cancelled», vbCritical
ActiveWorkbook.Close
Աշխատանքային թերթիկներ («Համայնք»): Ակտիվացրեք
Տարածք ("A1:G1"): Ընտրեք
Range(Selection, Selection.End(xlDown)).Պատճենել
Աշխատանքային տետրեր.Ավելացնել
ActiveSheet.Paste
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Ցույց տալ
 Եթե ոչ bFileSaveAs, ապա MsgBox «User cancelled», vbCritical
ActiveWorkbook.Close
Աշխատանքային թերթիկներ («վեբ տեղադրող»): Ակտիվացրեք
Տարածք ("A1:ZZ1"): Ընտրեք
Range(Selection, Selection.End(xlDown)).Պատճենել
Աշխատանքային տետրեր.Ավելացնել
Աշխատանքային թերթիկներ («Հրավիրել օգտատերերին»): Ավելացնել
Շրջանակ («A1»): Ընտրեք
ActiveSheet.Paste
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Ցույց տալ
 Եթե ոչ bFileSaveAs, ապա MsgBox «User cancelled», vbCritical
ActiveWorkbook.Close
Ուրիշ
MsgBox «Օգտագործողը չեղարկել է գործողությունը»
Վերջ: Եթե
Վերջ Sub

Լյուիս-Հ

3 տարի առաջ

#2147

Քվեարկել

արձակել

Դուք կարող եք դա անել հեշտությամբ:
Ավելացրեք հետևյալ բովանդակությունը VBS ֆայլում (օր. օրինակ.vbs): Սա միայն տեքստային ֆայլ է, որը կարող եք գրել Notepad-ի միջոցով.
«Կոդը պետք է տեղադրվի .vbs ֆայլում
Սահմանել objExcel = CreateObject («Excel.Application»)
objExcel.Application.Run "'C:\path\to\my\excel\file\myExcelMacroFile.xlsm'!MyModule.MyFunctionName"
objExcel.DisplayAlerts = Սխալ
objExcel.Application.Quit
Սահմանել objExcel = Ոչինչ
Այնուհետև կարող եք կրկնակի սեղմել VBS ֆայլի վրա՝ այն գործարկելու համար:

էջ:
1

Այս գրառման համար դեռևս պատասխաններ չեն տրվել:

Խնդրում ենք մուտք գործել՝ պատասխան փակցնելու համար

Դուք պետք է մուտք գործեք, որպեսզի կարողանաք պատասխան փակցնել: Մուտք գործեք՝ օգտագործելով աջ կողմում գտնվող ձևը կամ գրանցեք հաշիվ, եթե նոր եք այստեղ: Գրանցվել այստեղ »