Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>regarding copy of multiple columns, it is possible (eg <code>Range("A2:A4,B2:B4,D2:D4,F2:F4").Copy</code> ), but when you paste them they will be in a continuous range - better to just copy separately</p> <p>I've re-factored your code give you some hints</p> <pre><code>Sub Convert_to_Digi() ' First delete existing data Dim SrcWkb As Workbook Dim csvWkb As Workbook Dim srcSheet As Worksheet Dim StartRow As Long Dim wkbname As Variant Dim xlsFiles As Variant Dim MyRange As Range Dim NewName As Variant Dim csvName As String StartRow = 2 ' Get the workbooks to open xlsFiles = Application.GetOpenFilename(FileFilter:="Excel files (*.xls), *.xls", MultiSelect:=True) If VarType(xlsFiles) = vbBoolean Then Exit Sub ' Loop through each workbook and copy the data to this CSV For Each wkbname In xlsFiles Set SrcWkb = Workbooks.Open(Filename:=wkbname, ReadOnly:=False) Set srcSheet = SrcWkb.Worksheets("export_label_conf") ' Get used range on sheet Set MyRange = srcSheet.UsedRange ' Adjust to exclude top row Set MyRange = MyRange.Offset(1, 0).Resize(MyRange.Rows.Count - 1) NewName = srcSheet.Cells(3, 2) &amp; ".csv" If MyRange.Row + MyRange.Rows.Count - 1 &gt;= StartRow Then Set csvWkb = Workbooks.Open(Filename:="C:\DIGITAL\template.csv", ReadOnly:=False) ' copy column A MyRange.Columns(1).Copy ' paste into CSV template file, column K csvWkb.ActiveSheet.Cells(2, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' copy column B MyRange.Columns(4).Copy ' paste into CSV template file csvWkb.ActiveSheet.Cells(2, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' copy column D MyRange.Columns(4).Copy ' paste into CSV template file, column A csvWkb.ActiveSheet.Cells(2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' copy column F MyRange.Columns(6).Copy ' paste into CSV template file, column AD csvWkb.ActiveSheet.Cells(2, 30).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' and save template as new CSV with barcode as name csvName = CurDir &amp; "\" &amp; NewName ' using CurDir is a bit dangerous: how do you know what its set to? ActiveWorkbook.SaveAs Filename:=csvName, FileFormat:=xlCSV, CreateBackup:=False End If SrcWkb.Close Next wkbname End Sub </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POVB Macro - Create CSV file by copying relevant data from different spreadsheets
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USchris neilsen
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POVB Macro - Create CSV file by copying relevant data from different spreadsheets
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    1. COthank you Chris for looking into this! i won't use CurDir as you suggested. i just going to set it to constant destination. sorry i couldn't get to PC earlier.. i'm going to test it and feed back to you!
      singulars
      1. PO
      1. USElen
    2. COwooohoo! code worked! from the first instance! now i need to add vlookup from additional spreadsheet. i found the following code online: `Sub Find() Dim FndStr As String Dim FndVal As Range FndStr = Application.InputBox("Enter ID No.", "Search ID") Set FndVal = Columns("A:A").Find(What:=FndStr, LookAt:=xlWhole) If FndVal Is Nothing Then MsgBox "ID not found!!" Else MsgBox "Staff Location is " & FndVal.Offset(0, 1).Value & _ Chr(13) & "Time is " & Format(FndVal.Offset(0, 2).Value, "HH:MM") End If End Sub` which im going to try now
      singulars
      1. PO
      1. USElen
    3. COHave no luck with implementing vlookup... =(
      singulars
      1. PO
      1. USElen
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload