VBA excel使只读文本文件(VBA excel make read only a text file)

 好吧，一堆烂摊子，我终于偶然发现了一个简单易行的解决方案。 （告诉你即使是一只盲猪也能找到一颗玉米穗）。 请注意，它不发送文件，而是实际发送csv作为消息的正文......这对我的目的来说很好。 
 
function mailRequestCSV() {

// Send the PDF of the spreadsheet to this email address
  var email_send_address = "david.fickes@sunrunhome.com"; 
  var email_subject = "datagen request"

// Get the currently active spreadsheet ID
  var fileID = SpreadsheetApp.getActiveSpreadsheet();

// Build the URL 
  var url = 'https://docs.google.com/spreadsheet/ccc?key='+fileID+'&output=csv';
  var response = UrlFetchApp.fetch(url);

  MailApp.sendEmail(email_send_address, email_subject, response);
}

Much better answer which sends as an attachment:
 
Full credit to: https://gist.github.com/nirajkadam/0b41a01b8e739800c964
 
function mailRequestCSV() {

// Send the PDF of the spreadsheet to this email address
var recipients = "someone@somewhere.com"; 
var ssID = SpreadsheetApp.getActiveSpreadsheet().getId();
var sheetName = SpreadsheetApp.getActiveSpreadsheet().getName();
var email = Session.getActiveUser().getEmail();
var subject = "DataGenerationRequest ";
var body = "****NOTE: THIS IS AN AUTO COMPUTER-GENERATED REPORT****";
var requestData = {"method": "GET", "headers":{"Authorization":"Bearer "+ScriptApp.getOAuthToken()}};
var url = "https://docs.google.com/spreadsheets/d/"+ssID+"/export?format=csvx&id="+ssID;
var result = UrlFetchApp.fetch(url, requestData);
var contents = result.getContent();

MailApp.sendEmail(recipients, subject, body, {attachments:[{fileName:sheetName+".csv", content:contents, mimeType:"application//csv"}]});
}