-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
válasz Fferi50 #27429 üzenetére
Így jön létre a két változó:
str_Teljesnev = Application.GetOpenFilename
If str_Teljesnev = "False" Then
Exit Sub
ElseIf Mid(str_Teljesnev, (InStrRev(str_Teljesnev, "\") + 1), 9) <> Left(str_Szolgnev, 9) Then
MsgBox "Rossz fájlt választottál!"
Exit Sub
Else
Set wb_Temp = Workbooks.Open(str_Teljesnev)
End If
wb_Temp.Worksheets(1).Name = str_MunkalapA
wb_Temp.Worksheets(2).Name = str_MunkalapD
'kabelo munkalapot létrehoz
wb_Temp.Worksheets(str_MunkalapA).Copy before:=wb_Temp.Worksheets(1)
wb_Temp.Worksheets(1).Name = "kabelo"
Set ws_Kabelo = wb_Temp.Worksheets("kabelo")
Új hozzászólás Aktív témák
- LEGO klub
- Nők, nőügyek (18+)
- Netfone
- Politika
- Alkoholista nevelde
- TCL LCD és LED TV-k
- A Biden-kormányt is zavarja a big tech és az adatközpontok energiaéhsége
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Apple iPhone 13 Pro Max - őnagysága
- Azonnali notebookos kérdések órája
- További aktív témák...
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen