vba

问题 I have a formula that works perfectly when used in a With / End With statement for the range: .Formula = "=IFERROR(INDEX(" & MasterDataRange.Address(External:=True) & ",MATCH(" & Cells(iRow, Entry1).Address(True, False) & "&Left(" & Cells(iRow + 1, Entry2).Address(False, False) & ", 4)&""" & wks4.Range("L7").Value & """," & MasterRowMatchRange.Address(External:=True) & ",0),MATCH(""" & header01 & """," & MasterColumnMatchRange.Address(External:=True) & ",0)),0)" When trying to Evaluate the

问题 I have written on Outlook VBScript which downloads the attachment from Outlook. But now I am encountering an error Remote Server machine does not exist or is unavailable I get this error a few time and also sometimes this code runs without any error. I was able to track the exact point of failure. The line is Set olns = olApp.GetNameSpace("MAPI") I have almost tried everything yet I am not able to to find the solution. Set Arg = WScript.Arguments Dim item1 Dim objsubject Dim intcount Dim i

问题 I have written on Outlook VBScript which downloads the attachment from Outlook. But now I am encountering an error Remote Server machine does not exist or is unavailable I get this error a few time and also sometimes this code runs without any error. I was able to track the exact point of failure. The line is Set olns = olApp.GetNameSpace("MAPI") I have almost tried everything yet I am not able to to find the solution. Set Arg = WScript.Arguments Dim item1 Dim objsubject Dim intcount Dim i

问题 Can you please let check what is the error in below vba macro? Trying to autofilter two columns based on criteria. I am not able to filter field 8 and field 9 based on below code. Worksheets("Demo_Sheet").Activate With Worksheets("Demo_Sheet").Range("A1") .AutoFilter field:=8, Criteria1:="<=" & Format(Now() + 5, "m/d/yyyy"), Criteria2:=">=" & Format(Now() - 5, "m/d/yyyy"), Operator:=xlAnd .AutoFilter field:=9, Criteria1:=">=.95" End With Range("A1").CurrentRegion.Copy 回答1: this gave me an

问题 I'm trying to read a .LBR extension file (XML language) in Excel with this code: Dim X As Double Dim TXT As String Open "C:\Users\Asus\Desktop\Test\OJE-SS-124HM_000.lbr" For Input As #1 X = 1 Do While Not EOF(1) Line Input #1, TXT Worksheets("LBR").Cells(X, 1) = TXT X = X + 1 Loop Close #1 But I'm getting the entire text just in the first cell A1, see the bottom image. I'd like to get each text lines in separate cells, A1, A2, etc. What am I doing wrong? I think the LBR file doesn't have a

问题 I'm trying to read a .LBR extension file (XML language) in Excel with this code: Dim X As Double Dim TXT As String Open "C:\Users\Asus\Desktop\Test\OJE-SS-124HM_000.lbr" For Input As #1 X = 1 Do While Not EOF(1) Line Input #1, TXT Worksheets("LBR").Cells(X, 1) = TXT X = X + 1 Loop Close #1 But I'm getting the entire text just in the first cell A1, see the bottom image. I'd like to get each text lines in separate cells, A1, A2, etc. What am I doing wrong? I think the LBR file doesn't have a

问题 I have an EXTREMELY large data set in excel with varying data sets (some have 12 lines and some with 18, etc) that are currently in rows that needs to be transposed to columns. All the groupings are separated by a empty/blank line. I started the VBA to transpose this it but dont know how to include/look at the blank line and loop it to the end of each sheet. Any ideas/suggestions? Range("F1:F12").Select Selection.Copy Sheets("Sheet4").Select Range("A1").Select Selection.PasteSpecial Paste:

问题 I have an EXTREMELY large data set in excel with varying data sets (some have 12 lines and some with 18, etc) that are currently in rows that needs to be transposed to columns. All the groupings are separated by a empty/blank line. I started the VBA to transpose this it but dont know how to include/look at the blank line and loop it to the end of each sheet. Any ideas/suggestions? Range("F1:F12").Select Selection.Copy Sheets("Sheet4").Select Range("A1").Select Selection.PasteSpecial Paste:

问题 I want to copy 10 rows from a workbook into a new workbook. The copy & paste is fine, but in the copied cells are some formulas that I need to replace with the results. Is there a magical way to copy only the displayed values from the cells? This is how I do it now: Rows("2:11").Select Selection.Copy myWorkbook.Sheets(1).Activate ActiveSheet.Rows("1:10").Select ActiveSheet.Paste 回答1: Rows("2:11").Copy myWorkbook.WorkSheets(1).Rows("1:10").PasteSpecial xlPasteValues Application.CutCopyMode =

问题 I want to copy 10 rows from a workbook into a new workbook. The copy & paste is fine, but in the copied cells are some formulas that I need to replace with the results. Is there a magical way to copy only the displayed values from the cells? This is how I do it now: Rows("2:11").Select Selection.Copy myWorkbook.Sheets(1).Activate ActiveSheet.Rows("1:10").Select ActiveSheet.Paste 回答1: Rows("2:11").Copy myWorkbook.WorkSheets(1).Rows("1:10").PasteSpecial xlPasteValues Application.CutCopyMode =