Talk:List of television stations in the San Francisco Bay Area

message: Hello fellow Wikipedians,
I have just modified 2 external links on List of television stations in the San Francisco Bay Area. Please take a moment to review my edit. If you have any questions, or need the bot to ignore the links, or the page altogether, please visit this simple FaQ for additional information. I made the following changes:
*Corrected formatting/usage for http://www.californiahistoricalradio.com/photos54.html
*Added archive https://web.archive.org/web/20021221031442/http://homepage.mac.com/viktor2/btw/index.html to http://homepage.mac.com/viktor2/btw/index.html
When you have finished reviewing my changes, you may follow the instructions on the template below to fix any issues with the URLs.
Cheers.—InternetArchiveBot (Report bug) 19:03, 23 May 2017 (UTC)
thread_title:  External links modified 

message: This specific list is very helpful to anyone trying to understand the DTV spectrum, and should not be deleted.  There are several similar tables elsewhere on the web, but they are inaccurate/out of date. In particular, this one and this one.  This problem could be well solved via crowdsourced updating. To do that, this page needs some work.
I suggest that this page be turned into a single, more informative table, essentially a reference list, with little to no explanatory text. I have reached out to the page owners listed above: if they are willing to cooperate, I think we can get their content integrated into a very useful page here.
Editors: what do you think? Davodavo (talk) 16:04, 9 April 2024 (UTC)
thread_title:  I find this page very helpful, but it needs to be refactored & reformatted 

message: HI,
I have developed a Visual Basic module that allows you to work in Microsoft Excel and painlessly publish changes en masse.  The idea is to copy/paste the contents of the table here into a new Excel workbook, edit it as you see fit, then add a new VBA module to the workbook to automate generation of the Wiki Table format.  When you run the WikiTableFormat VBA, it will produce a text file called paster.txt...which you then cut/paste into the table in this article.
Here's the VBA code:
Sub WikiTableFormat()
    srcfile1 = ThisWorkbook.Name
    srcfile2F = ThisWorkbook.Path & "\" & srcfile2
    outfile = "paster.txt"
    outfileF = ThisWorkbook.Path & "\" & outfile
       
    
    'Variable for tracking Import data start position
    counter1 = 1
    
    maxcust = 400 ' equates to spreadsheet line numbers -- adjust if there are now more channels
    mincust = 4 ' line 4 is the start of the spreadsheet
    
    'Create a new worksheet which will hold the data for import
    Workbooks.Add
    
    ActiveWorkbook.SaveAs Filename:=outfileF, FileFormat:=xlText, CreateBackup:=False
    
        'Start the transfer of data (mincust = first data line of meter sheet, maxcust = last data line)
    For counter = mincust To maxcust
          
        'Insert "new row" for the table
        Windows(outfile).Activate
        editcell = "A" & counter1
        Trim (editcell)
        Range(editcell).Select
        ActiveCell.Value = "|-"
        counter1 = counter1 + 1
        
                
        'Make sure we're pointing at the sample data
        Windows(srcfile1).Activate
        
               
        'Get/Transfer Call Letters
        editcell = "A" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Owner
        editcell = "B" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer City of LIcense
        editcell = "C" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Virtual
        editcell = "D" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer RF
        editcell = "E" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Power
        editcell = "F" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Antenna
        editcell = "G" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Network
        editcell = "H" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
        'Get/Transfer Notes
        editcell = "I" & counter
        Trim (editcell)
        Range(editcell).Select
        Selection.Copy
        Windows(outfile).Activate
        editcell1 = CInt(counter1)
        Trim (editcell1)
        editcell1 = "A" & editcell1
        Trim (editcell1)
        Range(editcell1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveCell.Value = "|" & ActiveCell.Value
        Windows(srcfile1).Activate
        counter1 = counter1 + 1
        
    Next counter
    'Save file for import into QuickBooks
    Windows(outfile).Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    
End Sub Davodavo (talk) 21:01, 27 May 2024 (UTC)
thread_title:  All table entries replaced -- and here's how to do mass updates